Question

用EXCEL VB代码选择指定的多个区域数据，然后将数据粘贴到指定的多个区域

如在A2:A10002范围里有10000个数据，而我需要将每组数据按50组复制粘贴到B2、C2、D2........GR2、GS2粘贴。（例如在A2:A10002里编号1-10000，B2位置往下粘贴1-50，C2位置往下粘贴51-100，后边都是类推）

Answer 1

选择B2:GS2单元格区域(在名称框中输入B2:GS2可以直接选中这个区域)

输入

 

=OFFSET($A$2,(ROW(B1)-1)+(COLUMN(A1)-1)*50,)

 

然后按CTRL+ENTER结束.

 

这样就可以了,不需要写VBA.如图

 

 

 

 

追问

我只要VB做出的效果。

Answer 2

用下面代码试试吧Sub 粘贴()s = 2For j = 2 To 202 For k = 1 To 50 Cells(k + 1, j) = Cells(s, 1) s = s + 1 NextNextEnd Sub代码中的S＝2表示从A列的第二行开始取数

追问

我试了一下，你这个好像不行哦！

追答

可以的，我已经验证过了，请看图片。

​

追问

我只是假如有10000个数据，可如果我只有1020数据的时候，这个代码就会出错。就我只编号到任意的数值2522或别的什么数值。就会出现它会一直排到最后。

追答

原来A列的数据不确定呀，那就用下面代码吧
Sub 粘贴()
n = 1020
m = Int(n / 50) + 1
s = 2
For j = 2 To m + 1
For k = 1 To 50
Cells(k + 1, j) = Cell(s, 1)
s = s + 1
If s > n + 1 Then Exit Sub
Next
Next
End Sub
只要改变代码中n的值就可以了

追问

还是不能力。“Cell(s, 1) ”这里出错。

追答

我前面上传的图片与你描述的是否一致？这样吧，你留一个邮箱地址，我把做好的表格给你发过去。

追问

286185753@qq.com

追答

发到邮箱了，请查收。

Answer 3

首先，A2:A10002是10001个数据，这个用公式简单吧，b2=a2，下拉50行，其他类似，或者你还有什么需求，一定要用vba

Answer 4

http://wenku.baidu.com/view/456f9420af45b307e871970c.html

追问

这些资料我也很多呀，我也有VB代码可以将指定的区域复制到指定的区域，但是不知道怎样改成指定的多个区域复制到指定的多个区域。如果一个一个的添加太麻烦，所以想找个简单的方法，一次性搞定的那种。