[已解决]求助：使用循环时报错，请问如何表示？

wengrobert

.Range("B"&11*x":O"&34*x).Copy
我想表示，B11：O34；"B46:O69"；"B81:O104"等等
每次增加35行，谢谢！

最佳答案

月排行榜 / 总排行榜

tsigms

2012-8-25 09:32

Sub tes()

For i = 1 To 100

Range("B11:O34").Offset(35 * (i - 1)).Copy

Next i

End Sub


根据实际需要，i可以随意增减

跳转到最佳答案楼层

tsigms

Sub tes()

For i = 1 To 100

Range("B11:O34").Offset(35 * (i - 1)).Copy

Next i

End Sub


根据实际需要，i可以随意增减

gdsgzhrsh

Sub AA()
For x = 0 To 5
Range("B" & 11 + 35 * x & ":O" & 34 + 35 * x).Copy
Next
End Sub

& 在使用时记得前后加空格，否则报错，别的都是数学的数列问题

windimi007

试试看哈~！

1. Sub test()
   
2.     Dim i As Long
   
3.     For i = 0 To 99
   
4.         Cells(11, 2)(i * 35 + 1).Resize(24, 14).Copy
   
5.     Next i
   
6. End Sub

复制代码

wengrobert

gdsgzhrsh 发表于 2012-8-25 09:33
Sub AA()
For x = 0 To 5
Range("B" & 11 + 35 * x & ":O" & 34 + 35 * x).Copy

要使用空格？怪不得我老是出错，谢谢！

gdsgzhrsh

wengrobert 发表于 2012-8-25 10:15
要使用空格？怪不得我老是出错，谢谢！

给你揪出问题了，也不评个最佳~~

hyqzzs

呵呵，学习了，我也不知道应该加空格