很高兴看到你已经意识到重复代码的问题，这绝对是个值得优化的点！我们可以通过两种简洁高效的方法来重构你的代码，避免重复复制粘贴，同时让后续维护更轻松。

方法一：通用子过程+参数传递（适合新手快速上手） #

这种方法把所有重复的逻辑抽成一个公共子过程，每个按钮的点击事件只需要调用这个过程并传递自身作为参数，就能获取按钮的Caption。

第一步：编写通用日志子过程 #

在工作表的代码模块中添加下面的公共子过程：

Sub LogTask(btn As MSForms.CommandButton)
    Dim Comments As String
    Dim nextRow As Long
    
    ' 获取用户输入的备注，支持取消操作
    Comments = InputBox("请输入任务备注：", "任务备注")
    If Comments = "" Then Exit Sub ' 用户取消输入时直接退出
    
    ' 找到A列下一个空行（避免使用Select，提升代码效率）
    nextRow = Cells(Rows.Count, "A").End(xlUp).Offset(1).Row
    
    ' 批量写入数据
    Cells(nextRow, "A").Value = btn.Caption
    Cells(nextRow, "B").Value = Comments
    Cells(nextRow, "C").Value = Time
    Cells(nextRow, "C").NumberFormat = "h:mm AM/PM"
End Sub

第二步：简化每个按钮的点击事件 #

原来的每个按钮点击事件只需要一行代码即可：

Private Sub CommandButton1_Click()
    LogTask CommandButton1
End Sub

Private Sub CommandButton2_Click()
    LogTask CommandButton2
End Sub

' 其他按钮依此类推，只需要把CommandButtonX替换成对应按钮的名称

这样一来，所有重复的逻辑都集中在LogTask里，后续要修改日志规则（比如调整列、添加更多字段），只需要修改这一个子过程即可，不用逐个修改按钮代码。

方法二：类模块批量绑定（适合大量按钮场景） #

如果你的按钮数量很多（比如超过10个），逐个写点击事件还是有点麻烦，这时候可以用类模块来批量绑定所有按钮的点击事件，新增按钮也不需要额外写代码。

第一步：创建类模块 #

1. 打开VBA编辑器，右键点击项目名称 → 插入 → 类模块
2. 把类模块的名称改为clsTaskButton（在属性窗口修改(名称)字段）
3. 在类模块中写入以下代码：

Public WithEvents btn As MSForms.CommandButton

Private Sub btn_Click()
    Dim Comments As String
    Dim nextRow As Long
    
    Comments = InputBox("请输入任务备注：", "任务备注")
    If Comments = "" Then Exit Sub
    
    nextRow = Cells(Rows.Count, "A").End(xlUp).Offset(1).Row
    
    Cells(nextRow, "A").Value = btn.Caption
    Cells(nextRow, "B").Value = Comments
    Cells(nextRow, "C").Value = Time
    Cells(nextRow, "C").NumberFormat = "h:mm AM/PM"
End Sub

第二步：在工作表代码中绑定所有按钮 #

回到工作表的代码模块，添加以下代码：

' 声明一个集合来存放类实例，必须是模块级变量
Dim taskButtons As Collection

Private Sub Worksheet_Activate()
    Dim ctl As Control
    Dim btnInstance As clsTaskButton
    
    ' 初始化集合
    Set taskButtons = New Collection
    
    ' 遍历工作表上所有ActiveX按钮，绑定到类模块的点击事件
    For Each ctl In Me.Controls
        If TypeName(ctl) = "CommandButton" Then
            Set btnInstance = New clsTaskButton
            Set btnInstance.btn = ctl
            taskButtons.Add btnInstance
        End If
    Next ctl
End Sub

这样，每当你激活这个工作表时，所有ActiveX按钮都会自动绑定点击事件，点击任意按钮都会执行日志写入逻辑，完全不需要逐个写按钮的Click事件。

额外优化小建议 #

• 避免使用Select和ActiveCell：直接通过行号和列号操作单元格（比如Cells(nextRow, "A")）比选中单元格再赋值的效率更高，代码也更稳定。
• 增强输入提示：可以给InputBox添加标题和默认值，提升用户体验，比如InputBox("请输入任务备注：", "任务备注", "完成日常维护")。
• 空值判断：如果用户取消输入，不要写入空的备注，这也是我们代码里If Comments = "" Then Exit Sub的作用。

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