求大神看看用ChatGPT写的代码咋不灵了呢！！

Romance_sur_le_

只是想从表2中将满足条件的数据导到表1的指定标题下，用ChatGPT写了VBA代码，运行不了是啥原因，请各位大神帮助看一下啊，谢谢

dim麻辣君

指定城市为条件吗？可以写字典或者遍历行判断一次，重构新的数组

fzxba

z865593849

Romance_sur_le_

fzxba 发表于 2023-6-24 14:38

关键所在是表2中的那个表头样式是随时变化的，本次是B列，下次就不一定在表头的哪个位置了，而表1是固定位置的

shinechou86

VBA代码只认A，B或数字列，gpt写的带列名，有点像python，充分说明还是得有VBA基础，再用GPT才能如虎添翼。

高度保密

我用ChatGPT写的代码，没一个运行成功过，全是乱写一通，我感觉它自己都快疯了

Lastdoor

楼上大佬已经破案了，VBA的Range只认Range（“A1”） Range("A1:B1")这种样式的。

yynrzwh

1. Sub ExtractData()
   
2.     Dim sourceSheet As Worksheet
   
3.     Dim targetSheet As Worksheet
   
4.     Dim lastRow As Long
   
5.     Dim i As Long
   
6.     Set sourceSheet = ThisWorkbook.Sheets("Sheet2")
   
7.     Set targetSheet = ThisWorkbook.Sheets("Sheet1")
   
8.     lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
   
9.     n = 1
   
10.     男女 = 0: 城市 = 0: 成绩 = 0
    
11.     targetSheet.Range("A2:C" & lastRow).ClearContents
    
12.     With sourceSheet
    
13.         男女 = .UsedRange.Find("男/女", , , xlWhole).Column
    
14.         城市 = .UsedRange.Find("城市", , , xlWhole).Column
    
15.         成绩 = .UsedRange.Find("成绩", , , xlWhole).Column
    
16.         If 男女 = 0 Or 城市 = 0 Or 成绩 = 0 Then Exit Sub
    
17.         For i = 2 To lastRow ' Assuming headers are in the first row
    
18.             If sourceSheet.Range("B" & i).Value = "CA" Then
    
19.                 n = n + 1
    
20.                 targetSheet.Range("A" & n).Value = .Cells(i, 男女).Value
    
21.                 targetSheet.Range("B" & n).Value = .Cells(i, 城市 + 1).Value
    
22.                 targetSheet.Range("C" & n).Value = .Cells(i, 成绩).Value
    
23.             End If
    
24.         Next i
    
25.     End With
    
26.     MsgBox "Data extracted successfully!", vbInformation
    
27. End Sub
    

复制代码