Excel VBA多按钮宏行定位问题：复制按钮无法获取正确行号

问题原因 #

你复制的按钮可能未正确锚定到所在单元格，或者TopLeftCell属性因形状的位置设置问题未更新到实际所在行；部分情况下复制的形状会保留原位置的关联信息，导致返回错误的单元格地址。

解决方案 #

方法1：修正按钮的位置锚定设置 #

• 右键点击任意一个-按钮，选择大小和属性
• 在弹出面板切换到属性选项卡，选择大小和位置随单元格而变，点击确定
• 对所有复制生成的按钮重复此操作

该设置会让按钮与所在单元格绑定，确保TopLeftCell能正确返回按钮对应的单元格地址。

方法2：通过按钮的Top属性计算行号 #

如果方法1无效，可换用通过按钮垂直位置计算行号的方式，替代TopLeftCell属性：

Sub DeleteRow()
    Dim btnShape As Shape
    Dim targetRow As Integer
    
    Set btnShape = ActiveSheet.Shapes(Application.Caller)
    ' 根据按钮的Top位置计算所在行
    targetRow = ActiveSheet.Cells(btnShape.Top \ ActiveSheet.Rows(1).Height + 1, 1).Row
    
    MsgBox "当前按钮所在行：" & targetRow
    ' 取消注释下方代码执行删除行操作
    ' ActiveSheet.Rows(targetRow).Delete
End Sub

额外优化建议 #

添加新行生成-按钮时，建议通过代码创建按钮并自动绑定位置，而非手动复制，从根源避免位置锚定问题：

Sub AddRowWithButton()
    Dim newRow As Integer
    Dim newBtn As Shape
    
    newRow = ActiveSheet.Cells(Rows.Count, "K").End(xlUp).Row + 1
    ' 插入新行
    ActiveSheet.Rows(newRow).Insert
    
    ' 创建新的-按钮并绑定到对应单元格
    Set newBtn = ActiveSheet.Shapes.AddFormControl(xlButtonControl, _
        Left:=ActiveSheet.Cells(newRow, "K").Left, _
        Top:=ActiveSheet.Cells(newRow, "K").Top, _
        Width:=ActiveSheet.Cells(newRow, "K").Width, _
        Height:=ActiveSheet.Cells(newRow, "K").Height)
    
    ' 设置按钮文本和关联宏
    newBtn.TextFrame.Characters.Text = "-"
    newBtn.OnAction = "DeleteRow"
End Sub

内容的提问来源于stack exchange，提问作者Ruben Bolt