如何替换Excel VBA输入框，用按钮所在行单元格生成工作表名？

需求说明 #

替换原代码中手动输入工作表名的逻辑，自动从触发按钮所在行的前两个单元格（Last列和First列）拼接成「姓氏,名字」格式的工作表名：

• 若工作表已存在，直接打开该表
• 若不存在，新建以该名称命名的工作表
• 操作完成后按字母顺序排序所有工作表

表格示例 #

修改后的完整VBA代码 #

Sub TestSheetCreate()
    Dim newSheetName As String
    Dim btnCell As Range
    Dim I As Integer
    Dim J As Integer
    
    ' 获取触发宏的按钮所在单元格，提取对应行的姓氏和名字
    Set btnCell = Application.Caller
    newSheetName = btnCell.Offset(0, -2).Value & "," & btnCell.Offset(0, -1).Value

    On Error Resume Next
    ' 检查目标工作表是否存在
    If Not Worksheets(newSheetName) Is Nothing Then
        Worksheets(newSheetName).Select
    Else
        ' 不存在则新建并重命名
        Worksheets.Add.Name = newSheetName
    End If
    On Error GoTo 0 ' 恢复默认错误处理机制

    ' 按字母顺序排序所有工作表
    For I = 1 To Sheets.Count - 1
        For J = I + 1 To Sheets.Count
            If UCase(Sheets(I).Name) > UCase(Sheets(J).Name) Then
                Sheets(J).Move Before:=Sheets(I)
            End If
        Next J
    Next I
End Sub

关键修改点 #

• 移除手动输入：删掉原代码的InputBox语句，改用Application.Caller定位触发按钮的单元格位置
• 自动获取名称：通过Offset(0, -2)和Offset(0, -1)获取按钮所在行的前两列内容，拼接成要求的格式
• 优化存在性检查：用Not Worksheets(newSheetName) Is Nothing替代原有的错误捕获赋值逻辑，同时添加On Error GoTo 0避免错误处理范围过大
• 保留排序逻辑：原有的工作表字母排序功能完整保留

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