UC知道关于EXCEL FOR循环问题,虚心请教各位高手
来源：百度知道 编辑：UC知道 时间：2024/06/15 02:09:16
sub sheet1()
i=s=3
for i=i+3 to 12
for s=s+15 to 48
sheets("sheet1").cells(i,9)=sheets("sheet2").cells(s,10)
next
next
end sub
我想做到两个表之间的I6=J18,I9=J33,I12=J48......
可以用for循环做到吗？上面我写的代码可以修改吗？
新开户，分不多，不好意思啦~
bergyan,,刚刚试了，全部都是等于j48这一项，还是谢谢你的
i=s=3
for i=i+3 to 12
for s=s+15 to 48
sheets("sheet1").cells(i,9)=sheets("sheet2").cells(s,10)
next
next
end sub
我想做到两个表之间的I6=J18,I9=J33,I12=J48......
可以用for循环做到吗？上面我写的代码可以修改吗？
新开户，分不多，不好意思啦~
bergyan,,刚刚试了，全部都是等于j48这一项，还是谢谢你的
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
改成这样就行了，刚才的我也没测试。
你的代码是什么语言的啊……完全没有章法……我给你写一个。
不过你的“两个表之间”说得不甚清楚，我按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