录制宏的疑惑，如何通过VBA的方式复制动态位置的数据并黏贴在指定区域 大致是这样...

devilyeee

录制宏的疑惑，如何通过VBA的方式复制动态位置的数据并黏贴在指定区域

大致是这样的一个想法，通过录制宏制作一个按钮，点击之后根据当前选择的单元格自动向右向下移动一个格子，并复制下面区域的数据，黏贴到指定的区域

先跪谢各位大神

abc123281

1. Sub 宏1()
   
2. Dim rng As Range
   
3. Dim rngs As Range
   
4. Set rng = Selection
   
5. If Selection = "" Then
   
6.    MsgBox "你没有选择区域！"
   
7.    Exit Sub
   
8. End If
   
9. rng.Offset(1, 1).Resize(5, 2) = rng.Value
   
10. rng.Offset(1, 1).Resize(5, 2).Copy Range("c13")
    
11. End Sub
    

复制代码

abc123281

学习123.rar (14.04 KB, 下载次数: 33)

2018-8-28 09:29 上传

点击文件名下载附件

devilyeee

abc123281 发表于 2018-8-28 09:30

感谢~大佬，我知道怎么做了！

devilyeee

多了一个问题，是否可以指定一个单元格的内容，去一个区域内寻找然后停留在那个单元上面，执行之前的那些动作？