Question

求 excelVBA 高手 ？？有两个变量 for。。。。next语句怎么用？

Sub tiqu()

Dim i, j As Integer
For i = 1 To 6838
For j = 1 To 12000

If Workbooks(Data1).Worksheets(1).Cells(i, 7) = Workbooks(Data2).Worksheets(1).Cells(j, 6) Then
Workbooks(Data2).Worksheets(1).Cells(j, 4) = Workbooks(Data1).Worksheets(1).Cells(i, 8)
Workbooks(Data2).Worksheets(1).Cells(j, 7) = Workbooks(Data1).Worksheets(1).Cells(i, 9)
Workbooks(Data2).Worksheets(1).Cells(j, 9) = Workbooks(Data1).Worksheets(1).Cells(i, 10)
Next j
Next i
End If
End Sub
错误显示 ：next 没有 for

Answer 1

end if应该在next j的前面。
另外，workbooks里的Data1和Data2应打上双引号。要激活，应该将这两个工作薄打开吧。

Answer 2

End If应放到Next j之前。
另代码可以简化些，用Set SH1= Workbooks(Data1).Worksheets(1)
SET SH2= Workbooks(Data2).Worksheets(1)先设置两个对象变量来代替，免得看了头疼。