今天试着用科大讯飞的AI模型写了段代码，但还是出错了，请帮忙看看

雪伴寒江

今天试着用科大讯飞的AI模型写了段代码，但还是出错了，请帮忙看看，代码我是小白，只能慢慢读着理解
问题：
现在有一份Excel表格内含学生名单和对应的准考证号，另一份Excel表格只有学生名单，请问如何用VBA代码将准考证号填入相应的位置
回复：
Sub CopyTicketNumbers()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim i As Long, j As Long
   
    '设置工作表对象
    ws1 = ThisWorkbook.Worksheets("Sheet1") '更改为实际的工作表名称或引用
    ws2 = ThisWorkbook.Worksheets("Sheet2") '更改为实际的工作表名称或引用
   
    '获取第一个表格的最后一行行号和第二个表格的最后一行行号
    lastRow1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
   
    '循环遍历每个学生名单，并在第二个表格中填入准考证号
    For i = 2 To lastRow1 '从第二行开始循环，因为第一行是标题行
        If ws1.Cells(i, "A").Value = "学生名单" Then '如果当前单元格是学生名单，则继续循环
            For j = 2 To lastRow2 '从第二行开始循环，因为第一行是标题行
                If ws1.Cells(i, "A").Value = ws2.Cells(j, "A").Value Then '如果当前单元格是学生名单，则在第二个表格中填入准考证号
                    ws2.Cells(j, "B").Value = ws1.Cells(i, "B").Value '使用Offset函数来跳过标题行并获取下一个准考证号
                    Exit For '退出内部循环，因为已经找到了正确的准考证号
                 End If
            Next j
        End If
    Next i
End Sub

yuwd3

……………………

鄂龙蒙

1. Sub CopyTicketNumbers()
   
2.     Dim ws1 As Worksheet, ws2 As Worksheet
   
3.     Dim lastRow1 As Long, lastRow2 As Long
   
4.     Dim i As Long, j As Long
   
5.    
   
6.     '设置工作表对象
   
7.     Set ws1 = ThisWorkbook.Worksheets("Sheet1") '更改为实际的工作表名称或引用
   
8.     Set ws2 = ThisWorkbook.Worksheets("Sheet2") '更改为实际的工作表名称或引用
   
9.    
   
10.     '获取第一个表格的最后一行行号和第二个表格的最后一行行号
    
11.     lastRow1 = ws1.Cells(Rows.Count, "A").End(xlUp).Row
    
12.     lastRow2 = ws2.Cells(Rows.Count, "A").End(xlUp).Row
    
13.    
    
14.     '循环遍历每个学生名单，并在第二个表格中填入准考证号
    
15.     For i = 2 To lastRow1 '从第二行开始循环，因为第一行是标题行
    
16. '        If ws1.Cells(i, "A").Value = "学生名单" Then '如果当前单元格是学生名单，则继续循环
    
17.             For j = 2 To lastRow2 '从第二行开始循环，因为第一行是标题行
    
18.                 If ws1.Cells(i, "A").Value = ws2.Cells(j, "A").Value Then '如果当前单元格是学生名单，则在第二个表格中填入准考证号
    
19.                     ws2.Cells(j, "B").Value = ws1.Cells(i, "B").Value '使用Offset函数来跳过标题行并获取下一个准考证号
    
20.                     Exit For '退出内部循环，因为已经找到了正确的准考证号
    
21.                  End If
    
22.             Next j
    
23. '        End If
    
24.     Next i
    
25. End Sub
    

复制代码

zpy2

set ws1 = ThisWorkbook.Worksheets("Sheet1") '

杨建营

加上set试试

三分醉，七分醒

现在可以了                        

niko88819

楼主,科大讯飞的AI模型  ,  非常好奇   请问到那里发问题?

新手,贴出路径 ????

qlmgu

找到了，讯飞星火认知大模型 https://xinghuo.xfyun.cn/

qlmgu

找到了  

雪伴寒江

niko88819 发表于 2023-5-7 09:37
楼主,科大讯飞的AI模型  ,  非常好奇   请问到那里发问题?

新手,贴出路径 ????

短信收到邀请码和链接就注册了