如何让Excel宏将数据粘贴到触发宏的工作表中

优化后的完整宏代码 #

Sub PromoCC()
    ' 定义触发宏的工作表对象
    Dim wsTrigger As Worksheet
    ' 获取触发宏的工作表（适用于表单控件按钮）
    Set wsTrigger = ThisWorkbook.Worksheets(Application.Caller.Parent.Name)
    ' 如果是ActiveX控件按钮，可替换为：Set wsTrigger = Me
    
    ' 复制目标数据（避免使用Select/Activate，提升稳定性）
    ThisWorkbook.Worksheets("Tipos de Proyecto").Range("Promoción_Nuevo_SKU_Compra_Item").Copy
    
    ' 在触发工作表中找到A列最后一行的下一行，插入复制的数据
    Dim lastRow As Long
    lastRow = wsTrigger.Cells(wsTrigger.Rows.Count, "A").End(xlUp).Row
    wsTrigger.Range("A" & lastRow + 1).Insert Shift:=xlDown
    
    ' 可选：取消复制状态，释放系统资源
    Application.CutCopyMode = False
End Sub

关键修改说明 #

• 定位触发工作表：
  • 若使用表单控件按钮：通过Application.Caller.Parent直接获取按钮所在的工作表，确保无论点击哪个工作表上的按钮，都能精准定位到触发宏的工作表。
  • 若使用ActiveX控件按钮：将宏保存在对应工作表的代码模块中，直接用Me指代按钮所在的工作表即可。
• 移除冗余的Select操作：直接通过工作表对象和范围对象完成复制、插入操作，避免因工作表切换导致的定位错误，同时提升代码运行效率。
• 精准定位插入位置：改用End(xlUp)从A列底部向上查找最后有数据的行，解决原代码中End(xlDown)可能因空行导致的定位偏差问题。

内容的提问来源于stack exchange，提问作者Andrea Segorada