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

雪伴寒江

zpy2 发表于 2023-5-7 06:41
set ws1 = ThisWorkbook.Worksheets("Sheet1") '

修改后可以运行，但没有达到结果，不知道逻辑错在哪？

雪伴寒江

三分醉，七分醒 发表于 2023-5-7 07:21
现在可以了

优秀谢谢

雪伴寒江

鄂龙蒙 发表于 2023-5-7 06:35

谢谢，看来这个讯飞星火认知模型还是挺厉害的，羡慕你们能将他作为辅助工具，懂得修改

niko88819

qlmgu 多谢你,已经申请多次,都说参数无效,没办法申请通过

流云削峰

GPT 的回复是这样的，我不知道对不对。
可以通过以下步骤实现：

1. 打开包含学生名单和准考证号的Excel表格和只包含学生名单的Excel表格。

2. 在只包含学生名单的Excel表格中，添加一个空白的列，用于填充准考证号。

3. 使用VBA代码打开包含学生名单和准考证号的Excel表格，并获取所有学生名单和对应的准考证号。

4. 对于只包含学生名单的Excel表格中的每个学生名字，搜索包含学生名单和准考证号的Excel表格，找到相应的准考证号，并将其填充到空白列中。

下面是一个示例代码，可以根据实际情况进行修改：

```
Sub FillExamNumber()
    Dim wbSource As Workbook, wbTarget As Workbook
    Dim wsSource As Worksheet, wsTarget As Worksheet
    Dim i As Long, j As Long, lastRow As Long
    Dim studentName As String, examNumber As String
   
    '打开源文件和目标文件
    Set wbSource = Workbooks.Open("source.xlsx")
    Set wbTarget = ThisWorkbook
    Set wsSource = wbSource.Worksheets("Sheet1")
    Set wsTarget = wbTarget.Worksheets("Sheet1")
   
    '获取源文件中的最后一行
    lastRow = wsSource.Cells(Rows.Count, "A").End(xlUp).Row
   
    '遍历目标文件中的每个学生名字
    For i = 2 To wsTarget.Cells(Rows.Count, "A").End(xlUp).Row
        studentName = wsTarget.Cells(i, "A").Value
        
        '在源文件中搜索学生名字
        For j = 2 To lastRow
            If wsSource.Cells(j, "A").Value = studentName Then
                examNumber = wsSource.Cells(j, "B").Value '获取准考证号
                wsTarget.Cells(i, "B").Value = examNumber '填充准考证号
                Exit For
            End If
        Next j
    Next i
   
    '关闭源文件
    wbSource.Close SaveChanges:=False
End Sub

流云削峰

重复了，删除一个

雪伴寒江

流云削峰 发表于 2023-5-7 16:33
GPT 的回复是这样的，我不知道对不对。
可以通过以下步骤实现：

提问的很优秀，表述很清楚

qlmgu

niko88819 发表于 2023-5-7 15:00
qlmgu 多谢你,已经申请多次,都说参数无效,没办法申请通过

我申请后很快就批了

mmwwdd

注册了,等通知

mmwwdd

以后这个论坛估计会很多人用AI模型来回答