高手们帮我看看这段代码有何问题?
Sub test()
Dim i As Integer
Dim j As Integer
For i = 7 To 12
For j = 5 To 400
If Sheet(1).Range("AKi") = Sheet(1).Range(Aj) Then
Sheet(1).Range(Bj) = Sheet(1).Range(ALi)
Sheet(1).Range(Cj) = Sheet(1).Range(AMi)
Exit For
End If
Next j
Next i
End Sub
如题,小弟刚开始学,望莫取笑~~~
[解决办法]
If Sheet(1).Range("AKi") = Sheet(1).Range(Aj) Then
Sheet(1).Range(Bj) = Sheet(1).Range(ALi)
估计是红字标示的地方出的问题,象这种情况多用Sheet(1).cells(2,j) = Sheet(1).cells(36,i)
直观一些,
[解决办法]
用RANGE时用Range("B" & j & )
[解决办法]
Sheet(1).Range("AKi") 应该改为 Sheet(1).Range("AK" & i)