版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/poinsettia/article/details/50700425
Sub Macro3()
'
' Macro3 Macro
'
Worksheets("Sheet1").Select
Range("A2:E2").Select
Selection.Copy
Worksheets("Sheet2").Select
Range("D11").Select
ActiveSheet.Paste
'
' Macro3 Macro
'
Worksheets("Sheet1").Select
Range("A2:E2").Select
Selection.Copy
Worksheets("Sheet2").Select
Range("D11").Select
ActiveSheet.Paste
End Sub
逻辑:选择源页签-》选择要拷贝的源单元格-》选择目的页签-》选择目的单元格-》黏贴