[已解决]求助一个递增复制的代码

东方智彩

求助老师和高手们一个递增复制的代码,详看附件,等待解答谢谢!
6.rar (14.16 KB, 下载次数: 7)

2012-2-17 12:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-2-17 13:33

借2楼的改一下：
6.rar (14.96 KB, 下载次数: 12)

2012-2-17 13:35 上传

点击文件名下载附件

1. Public i%
   
2. Private Sub CommandButton1_Click()
   
3.   If Range("u65536").End(3).Row = 1 Then Exit Sub
   
4.   If i = 0 Then
   
5.      i = Range("u1").End(xlDown).Row
   
6.   Else
   
7.      i = i + 1
   
8.   End If
   
9.   Range("u" & i).Resize(6, 3).Copy Range("EB5")
   
10. End Sub
    

复制代码

跳转到最佳答案楼层

上清宫主

Public i%
Private Sub CommandButton1_Click()
  If Range("u65536").End(3).Row = 1 Then Exit Sub
  If i = 0 Then
     i = Range("u1").End(xlDown).Row
  Else
     i = i + 1
  End If
  Range("u" & i).Resize(6, 3).Copy Range("eb65536").End(3)(2, 1)
End Sub
运行几回后，要从u11开始复制得想法哈

zjdh

借2楼的改一下：
6.rar (14.96 KB, 下载次数: 12)

2012-2-17 13:35 上传

点击文件名下载附件

1. Public i%
   
2. Private Sub CommandButton1_Click()
   
3.   If Range("u65536").End(3).Row = 1 Then Exit Sub
   
4.   If i = 0 Then
   
5.      i = Range("u1").End(xlDown).Row
   
6.   Else
   
7.      i = i + 1
   
8.   End If
   
9.   Range("u" & i).Resize(6, 3).Copy Range("EB5")
   
10. End Sub
    

复制代码

上清宫主

他目的地是固定的嗦？还以为依次往下移呢
这样保存数据源的起始位置不好

东方智彩

3楼高手的代码测试正解,谢谢!新问题怎么样能解除循环，再从头开始，还请指教？

zjdh

东方智彩 发表于 2012-2-17 14:01
3楼高手的代码测试正解,谢谢!新问题怎么样能解除循环，再从头开始，还请指教？

6.rar (16.42 KB, 下载次数: 5)

2012-2-17 14:21 上传

点击文件名下载附件

东方智彩

zjdh 发表于 2012-2-17 14:21

谢谢了完美解决,学习了!