vb调用excel sheet2对sheet进行匹配

2025-04-12 18:37:05

推荐回答（2个）

回答（1）：

,改成以下:
For i = 1 To 400
For j = 1 To 400
Set xlsheet = xlapp.Worksheets(1)
m = xlsheet.Cells(i, j)'此处的A需要改成特定列，就是你要的那列,这里改成全部检查
n = xlsheet.Cells(i, j)'此处的B需要改成特定列，就是你要的那列,这里改成全部检查
Set xlsheet = xlapp.Worksheets(2)
x = xlsheet.Cells(i, j) '此处的C需要改成特定列，就是你要的那列,这里改成全部检查
y = xlsheet.Cells(i, j)'此处的D需要改成特定列，就是你要的那列,这里改成全部检查
If x = m Then y = n :exit for
Next j
Next i

回答（2）：

m = xlsheet.Cells(j, a)
里面的a要具体常数或变量，不能用字符，其他的bcd都不能这样表达，要有具体的列号 ..
Sub zhou()
Worksheets(2).Select
For i = 1 To 400
x = Cells(i, 3)
y = Cells(i, 4)
For j = 1 To 400
With Worksheets(1)
m = .Cells(j, 3)
If x = m Then
.Cells(j, 4) = y
End If
End With
Next
Next
End Sub