Offset为什么把i设置成0-4,第一次后会多跳两格,后面却不会?
Sub 测试()
For i = 0 To 4 * 3 Step 3
Sheet1.Range("AG5").Offset(0, i).Select
Sheet1.Range("AG5").Offset(0, i).UnMerge
Sheet1.Range("AG5").Offset(0, i).ClearContents
Sheet1.Range("AG5").Offset(0, i).Resize(, 3).Merge
Sheet1.Range("AG5").Offset(0, i) = i
Next
End Sub
把i设置成1-5却不会
Sub 测试()
For i = 1 To 5 * 3 Step 3
Sheet1.Range("AG5").Offset(0, i).Select
Sheet1.Range("AG5").Offset(0, i).UnMerge
Sheet1.Range("AG5").Offset(0, i).ClearContents
Sheet1.Range("AG5").Offset(0, i).Resize(, 3).Merge
Sheet1.Range("AG5").Offset(0, i) = i
Next
End Sub