[已解决]连续复制

cyj153

循环复制1.rar (8.56 KB, 下载次数: 22)

2011-12-24 09:38 上传

点击文件名下载附件
如何根据序号，点击按键后进行序号的编号进行连续复制。谢谢！

最佳答案

月排行榜 / 总排行榜

zjdh

2011-12-24 10:28

1. Sub test()
   
2.     With Sheets("1")
   
3.         For I = .Range("G2")+1 To Sheets("2").Range("B65536").End(3).Row
   
4.             Sheets("2").Range("C" & I & ":E" & I).Copy .Range("B65536").End(xlUp)(2, 1)
   
5.             Sheets("2").Range("F" & I & ":H" & I).Copy .Range("B65536").End(xlUp)(2, 1)
   
6.         Next
   
7.     End With
   
8.     MsgBox "数据复制完成。谢谢！"
   
9. End Sub

复制代码

跳转到最佳答案楼层

zjdh

1. Sub test()
   
2.     With Sheets("1")
   
3.         For I = .Range("G2")+1 To Sheets("2").Range("B65536").End(3).Row
   
4.             Sheets("2").Range("C" & I & ":E" & I).Copy .Range("B65536").End(xlUp)(2, 1)
   
5.             Sheets("2").Range("F" & I & ":H" & I).Copy .Range("B65536").End(xlUp)(2, 1)
   
6.         Next
   
7.     End With
   
8.     MsgBox "数据复制完成。谢谢！"
   
9. End Sub

复制代码