新人求教一个关于循环的问题

denglunyong · 发表于 2013-4-12 15:03

Sub xm()
   Sheet10.Cells(3, 3) = Sheet4.Cells(5, 2)
   Sheet10.Cells(8, 3) = Sheet4.Cells(6, 2)
   Sheet10.Cells(13, 3) = Sheet4.Cells(7, 2)
   Sheet10.Cells(18, 3) = Sheet4.Cells(8, 2)
   Sheet10.Cells(23, 3) = Sheet4.Cells(9, 2)
   Sheet10.Cells(28, 3) = Sheet4.Cells(10, 2)
   Sheet10.Cells(33, 3) = Sheet4.Cells(11, 2)
   Sheet10.Cells(38, 3) = Sheet4.Cells(12, 2)
   Sheet10.Cells(43, 3) = Sheet4.Cells(13, 2)
   Sheet10.Cells(48, 3) = Sheet4.Cells(14, 2)
   Sheet10.Cells(53, 3) = Sheet4.Cells(15, 2)
   Sheet10.Cells(58, 3) = Sheet4.Cells(16, 2)
   Sheet10.Cells(63, 3) = Sheet4.Cells(17, 2)
   Sheet10.Cells(68, 3) = Sheet4.Cells(18, 2)
End Sub

以上代码如何用循环写语句请教各位老师指点一下

denglunyong · 发表于 2013-4-12 15:11

在线等老师指点谢谢

gufengaoyue · 发表于 2013-4-12 15:16

Sub xm2()
Dim f As Byte, i As Byte
f = 4
With sheet10
For i = 3 To 68 Step 5
f = f + 1
.Cells(i, 3) = sheet4.Cells(f, 2)
Next
End With
End Sub

复制代码

wajour · 发表于 2013-4-12 15:17

Sub xm()
for count=5 to 18
Sheet10.Cells(count*5-22, 3) = Sheet4.Cells(count, 2)
next
End Sub

denglunyong · 发表于 2013-4-12 15:26

谢谢 2位老师指点 3楼老师指点的能理解 4楼的有点高深慢慢消化再次感谢2位老师

hu-xiaolin · 发表于 2013-4-12 18:45

学习了！三楼的看懂了，四楼的木有看懂啊！{:soso_e106:}

youlin007 · 发表于 2013-4-15 14:40

不是吧。四楼不高深呀，就是找出3-68与5-18的关系呀。

		自动登录	找回密码
密码			免费注册