Question

VBA这段代码为什么会让数据错行？

问题一：为什么这段代码会让本应该出现在标黄①位置的数据错行到②，而②的数据错行到③，以此类推。
Sub 调取()
For i = 5 To 125 Step 8
For j = 2 To 16
kk = Sheets(1).Cells(i, 2)
hh = Sheets(2).Cells(j, 1)
If kk = hh Then
kk.Offset(, 1) = Left(hh.Offset(, 1), 2)
kk.Offset(, 2) = Right(hh.Offset(, 1), 2)
kk.Offset(, 6) = Left(hh.Offset(, 2), 2)
kk.Offset(, 7) = Right(hh.Offset(, 2), 2)
→kk.Offset(2⑨ , 6) = Left(hh.Offset(, 3), 2)
→kk.Offset(2⑨ , 7) = Right(hh.Offset(, 3), 2)
……
End If
Next j
Next i
End Sub

Answer 1

很简单，因为代码用来代表行数的变量i，循环里面用了step 8，表示每循环一次i加八行

追答

欢迎追问

Answer 2

可以建立新的沟通渠道上传文件。私信我或评论后我私信你。