如何制作可将自身左侧7单元格数据发送至Output Sheet的按钮？

核心思路 #

不用给每个按钮单独编写宏，靠通用VBA宏实现动态定位——不管按钮被复制到哪一行，宏都能通过按钮自身的位置，自动锁定它所在行左侧的7个目标单元格。

具体操作步骤 #

1. 打开Excel的VBA编辑器（快捷键Alt + F11），右键点击工作簿名称，选择「插入」→「模块」
2. 在新模块里粘贴以下代码：

Sub CopyToOutput()
    Dim btnCell As Range
    Dim sourceRange As Range
    Dim outputSheet As Worksheet
    
    ' 获取当前点击按钮所在的单元格
    Set btnCell = ActiveSheet.Shapes(Application.Caller).TopLeftCell
    ' 定位按钮左侧的7个单元格（同一行，向左偏移7列）
    Set sourceRange = btnCell.Offset(0, -7).Resize(1, 7)
    ' 指定输出工作表
    Set outputSheet = ThisWorkbook.Worksheets("Output Sheet")
    
    ' 清空输出区域旧内容
    outputSheet.Range("C4:C10").ClearContents
    ' 横向数据转置为纵向，粘贴到目标区域
    sourceRange.Copy
    outputSheet.Range("C4").PasteSpecial Paste:=xlPasteValues, Transpose:=True
    
    ' 清除剪贴板残留
    Application.CutCopyMode = False
End Sub

3. 返回Excel界面，通过「开发工具」→「插入」→「表单控件」→「按钮(窗体控件)」，在某一行的合适位置（比如H列，左侧刚好对应A-G列7个单元格）绘制按钮
4. 弹出「指定宏」窗口时，选择刚创建的CopyToOutput宏，点击确定
5. 直接复制这个按钮到其他行即可——不管按钮被复制到哪一行，点击后都会自动抓取该行左侧的7个单元格数据，转列粘贴到Output Sheet的C4-C10区域

关键细节说明 #

• Application.Caller是实现动态识别的核心：它能获取触发宏的按钮名称，再通过Shapes(Application.Caller).TopLeftCell精准定位按钮所在单元格
• Offset(0, -7).Resize(1,7)确保不管按钮在第几列，只要左侧有7个单元格，就能准确选中目标数据区域
• Transpose:=True直接完成横向数据到纵向的转换，完美匹配C4到C10的7个单元格位置

内容的提问来源于stack exchange，提问作者Altair Fernandes