[已解决]如何用控件在空白行复制相应内容

wjqcbj2014

如何用控件在空白行复制相应内容
让7行开始复制2~6行内容。12行复制2~6行内容，一直循环下去

最佳答案

月排行榜 / 总排行榜

那么的帅

2014-3-27 20:56

如下代码放在 某个模块最上面

1. Dim S
   
2. Sub 复制()
   
3.     S = S + 1
   
4.     Rows("2:6").Copy
   
5.     Rows(S * 5 + 2 & ":" & S * 5 + 2).Select
   
6.     ActiveSheet.Paste
   
7.     Application.CutCopyMode = False
   
8. End Sub

复制代码

跳转到最佳答案楼层

tgydslr

等着学习

那么的帅

如下代码放在 某个模块最上面

1. Dim S
   
2. Sub 复制()
   
3.     S = S + 1
   
4.     Rows("2:6").Copy
   
5.     Rows(S * 5 + 2 & ":" & S * 5 + 2).Select
   
6.     ActiveSheet.Paste
   
7.     Application.CutCopyMode = False
   
8. End Sub

复制代码