软件: Micrpsoft Excel
版本: 2007
各位版友好，初次接触VBA发现是很好用的工具，
但对其逻辑还是有些不熟识，想请教有经验的板友，
以下唯一简易Click Sub，目的在点击按钮后可执行贴上动作，
想再次执行按钮Click，复制贴上的内容可继续往下续贴，
例: 第一次点击按钮=> 贴在sheet1中的A1
第二次点击按钮=> 贴在sheet1中的A5
第三次点击按钮=> 贴在SHEET1中的A9
.........................以此类推
为简化问题，复制贴上的内容暂时假设一样，再麻烦指教，谢谢
Sub 按钮1_Click()
' 按钮1_Click Macro
Sheets("Sheet2").Select
Range("A2").Select
Selection.Copy
Sheets("Sheet1").Select
Range("A5").Select
ActiveSheet.Paste
End Sub

https://youtu.be/NRhTd15WMH0 类似这样

已试验成功, 但若是贴图会失败写法如下Sheets("Sheet2").SelectActiveSheet.ChartObjects("Chart 1").ActivateActiveChart.ChartArea.CopySheets("Sheet1").[a5].Offset(Sheets("Summary").[c1] * 5)Sheets("Sheet1").[c1] = Sheets("Sheet1").[c1] + 1再麻烦指教, 谢谢

http://imgur.com/GnKaMub 类似这样

已成功 感谢soyoso大大指教!