Excel VBA：遍历工作簿给指定单元格标记工作表名称的实现问题

嘿，我明白你遇到的问题了——不用输入框时代码跑得好好的，一加上输入框就报错，大概率是输入框的返回值没处理好，或者类型转换出了问题。咱们直接上可运行的代码，再拆解关键细节，帮你彻底解决这个问题。

完整可运行的VBA代码 #

Sub MarkSheetNames()
    Dim targetAddr As String
    Dim targetRng As Range
    Dim ws As Worksheet
    Dim currentWs As Worksheet
    
    ' 先记录当前激活的工作表
    Set currentWs = ActiveSheet
    
    ' 弹出带单元格选择功能的输入框（Type:=8是关键！）
    targetAddr = InputBox("请点击目标单元格或输入地址（比如A1）：", "选择标记位置", Type:=8)
    
    ' 处理用户取消输入的情况：如果点了取消，直接退出程序
    If targetAddr = "" Then
        MsgBox "操作已取消", vbInformation
        Exit Sub
    End If
    
    ' 把输入的地址转换成Range对象，同时捕获可能的错误
    On Error Resume Next
    Set targetRng = currentWs.Range(targetAddr)
    On Error GoTo 0
    
    ' 验证Range是否有效：如果输入的地址不对，弹出提示并退出
    If targetRng Is Nothing Then
        MsgBox "输入的单元格地址无效，请重新操作！", vbExclamation
        Exit Sub
    End If
    
    ' 遍历工作簿里的所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过当前工作表，只处理其余的
        If ws.Name <> currentWs.Name Then
            ' 在对应位置写入该工作表的标签名
            ws.Range(targetRng.Address).Value = ws.Name
        End If
    Next ws
    
    MsgBox "标记完成！", vbInformation
End Sub

关键细节（解决报错的核心） #

咱们来拆解一下为什么之前的输入框会报错，以及这段代码怎么避免这些问题：

• 用Type:=8实现可视化选择：这个参数让输入框支持直接点击单元格选择地址，不用手动输入，既方便又能避免地址格式错误（比如输成"A-1"这种无效格式）。
• 处理取消操作：如果用户点击输入框的「取消」按钮，InputBox会返回空字符串，这时候直接退出程序，不会让空值进入后续的Range操作导致报错。
• 验证Range有效性：用On Error Resume Next捕获地址转换的错误，再判断targetRng是否为Nothing，确保只有有效地址才会执行后续逻辑。
• 跳过当前工作表：遍历的时候排除掉当前激活的表，避免把当前表的名字写到自己身上。

之前代码可能踩的坑 #

如果你的旧代码报错，大概率是这几个原因：

1. 没处理用户取消输入的情况，空值直接传给Range导致运行时错误；
2. 用了默认的输入框（不带Type:=8），用户手动输入的地址格式错误；
3. 没有验证转换后的Range是否有效，无效地址直接触发报错；
4. 遍历的时候没跳过当前工作表，导致不必要的操作或冲突。

你把这段代码粘贴到VBA模块里，运行宏试试——先点击当前工作表的某个单元格（或者在输入框里输地址），就能看到其他工作表的对应位置自动填上标签名啦。

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