[已解决]选择性粘贴的代码

海洋王

求各位老师帮忙写一个代码，就是每天都要从A表复制-选择性粘贴数值到B表一直往下粘贴

最佳答案

月排行榜 / 总排行榜

grf1973

2017-2-13 09:14

1. Sub tt()
   
2.     arr = Sheets(1).[a1].CurrentRegion
   
3.     r = [a65536].End(3).Row + 1
   
4.     If r = 2 Then r = 1
   
5.     Cells(r, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
   
6. End Sub

复制代码

跳转到最佳答案楼层

砂海

直接 录制 , 然后 根据需要 修改.

grf1973

1. Sub tt()
   
2.     n = 5 '要复制的次数
   
3.     arr = Sheets(1).[a1].CurrentRegion
   
4.     r = UBound(arr)
   
5.     For i = 0 To n - 1
   
6.         Cells(i * r + 1, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
   
7.     Next
   
8. End Sub
   

复制代码

海洋王

grf1973 发表于 2017-2-11 21:44

感谢老师的回复，祝您元宵节快乐，家人安康如意；可能是我表达的不够清楚，是每天都操作一次，比如第一天贴在A1：G7区域，第二天就在贴在A8：G14,第三天以此类推往下粘贴

grf1973

1. Sub tt()
   
2.     arr = Sheets(1).[a1].CurrentRegion
   
3.     r = [a65536].End(3).Row + 1
   
4.     If r = 2 Then r = 1
   
5.     Cells(r, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
   
6. End Sub

复制代码

海洋王

grf1973 发表于 2017-2-13 09:14

太感谢了，要的就是这个效果，谢谢老师