[已解决]用VBA实现循环粘贴多行数据

sljvalen

用VBA将第11行-15行 每隔五行复制粘贴10次

最佳答案

月排行榜 / 总排行榜

Excel学徒123

2017-4-28 16:02

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim rngSrc As Range
   
5.     Dim iCnt As Integer, irow%
   
6.     Set rngSrc = Range("a1:b5")
   
7.     For iCnt = 1 To 10
   
8.         irow = iCnt * 10 + 1
   
9.         rngSrc.Copy Cells(irow, 1)
   
10.         Cells(irow, 1).Value = rngSrc(1).Value + iCnt
    
11.     Next
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

Excel学徒123

附件都不传一个

sljvalen

Excel学徒123 发表于 2017-4-28 15:52
附件都不传一个

刚才上传失败了  现已上传

Excel学徒123

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim rngSrc As Range
   
5.     Dim iCnt As Integer, irow%
   
6.     Set rngSrc = Range("a1:b5")
   
7.     For iCnt = 1 To 10
   
8.         irow = iCnt * 10 + 1
   
9.         rngSrc.Copy Cells(irow, 1)
   
10.         Cells(irow, 1).Value = rngSrc(1).Value + iCnt
    
11.     Next
    
12. End Sub
    

复制代码

sljvalen

Excel学徒123 发表于 2017-4-28 16:02

如果我要把A11:B15的内容往下复制粘贴  要怎么改?

sljvalen

Excel学徒123 发表于 2017-4-28 16:02

版主  我要复制A11:B15 黄色阴影部分的内容 要怎么做?