关于EXCEL FOR循环问题,虚心请教各位高手

2024-12-17 09:01:32

推荐回答（2个）

回答1：

Sub sheet()
For i = 6 To 12 Step 3
Sheets("sheet1").Cells(i, 9) = Sheets("sheet2").Cells(i + 12 * (i / 3 - 1), 10)
Next i
End Sub

改成这样就行了，刚才的我也没测试。

回答2：

你的代码是什么语言的啊……完全没有章法……我给你写一个。
不过你的“两个表之间”说得不甚清楚，我按Sheet2的J们赋到Sheet1的I们写的。别忘了运行啊。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Sub sheet()
Dim i As Integer
For i = 6 To 12 Step 3
sheet1.Range("I" & i).Value = Sheet2.Range("J" & 5 * i - 12).Value
Next
End Sub