[已解决]求修改粘贴时定位的代码

sanfuhai

详情请看附件： 求改代码.rar (7.52 KB, 下载次数: 1)

2017-4-19 16:02 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-19 16:29

把宏1到3改成类似下面这样：

1. Dim r&, i&
   
2. For i = 2 To 12
   
3.   If r < Cells(65536, i).End(3).Row Then r = Cells(65536, i).End(3).Row
   
4. Next i
   
5. ActiveSheet.Range("U2:AE10").Copy
   
6. ActiveSheet.Range("B" & r + 6).PasteSpecial xlPasteValues

复制代码

跳转到最佳答案楼层

大灰狼1976

把宏1到3改成类似下面这样：

1. Dim r&, i&
   
2. For i = 2 To 12
   
3.   If r < Cells(65536, i).End(3).Row Then r = Cells(65536, i).End(3).Row
   
4. Next i
   
5. ActiveSheet.Range("U2:AE10").Copy
   
6. ActiveSheet.Range("B" & r + 6).PasteSpecial xlPasteValues

复制代码