如何使用VBA将带按钮的行添加到excel表格中？

Sub AddRowWithButton()
    Dim newRow As Range
    Dim button As Button
    
    ' 在当前活动工作表的最后一行添加一行数据
    Set newRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    
    ' 在新行中插入按钮
    Set button = ActiveSheet.Buttons.Add(newRow.Left, newRow.Top, 50, 20)
    With button
        .OnAction = "Button_Click" ' 按钮点击事件的处理函数
        .Caption = "按钮" ' 按钮显示的文本
    End With
End Sub

Sub Button_Click()
    ' 按钮点击事件的处理函数
    ' 在这里编写按钮点击后的逻辑代码
    MsgBox "按钮被点击了！"
End Sub