Excel VBA中cell.Text获取工作表名出现下标越界问题求助

你遇到的下标越界问题，核心原因出在formattedCell.Text的特性上：

• .Text返回的是单元格显示层面的格式化文本，这个结果可能包含肉眼不可见的非打印字符（比如单元格自动换行产生的换行符、首尾隐形空格，或是格式渲染时附带的特殊字符）。
• 虽然Debug.Print输出看起来是$200,000，但实际字符串里藏着这些不可见字符，导致Sheets(sheetName)无法匹配到真实的工作表名称；而你手动赋值的"$200,000"是纯干净的字符串，所以能正常匹配。

有两种可靠的处理方式，任选其一即可：

方式1：改用.Value获取实际值后格式化 #

如果你的单元格存储的是数字（比如200000），只是通过格式设置显示为$200,000，直接读取单元格实际数值再手动格式化，能彻底避免.Text带来的隐形字符问题：

sheetName = Format(formattedCell.Value, "$#,##0")

方式2：清理.Text返回的字符串 #

如果必须使用.Text，就对结果做彻底清理，移除所有非打印字符和多余空格：

sheetName = formattedCell.Text
' 移除换行、回车等非打印字符
sheetName = Replace(Replace(sheetName, Chr(10), ""), Chr(13), "")
' 移除首尾空格
sheetName = Trim(sheetName)
' 原有非法字符替换和长度检查保留
sheetName = Replace(Replace(sheetName, "/", "_"), "\", "_")
If Len(sheetName) > 31 Then
    sheetName = Trim(Left(sheetName, 31))
End If

Sub UpdateSheetNames()
    Dim SheetStart As Range
    Dim wb2 As Workbook
    Dim sheetName As String
    Dim formattedCell As Range
    Dim i As Integer ' 显式声明变量，避免隐式变量问题

    Set wb2 = ThisWorkbook
    Set SheetStart = wb2.Sheets("SQL").Range("SheetStart")
    
    ' 无需激活工作簿，直接通过wb2引用更稳定
    For i = 1 To 10
        Set formattedCell = SheetStart.Offset(i - 1, 0)
        ' 读取实际数值并格式化目标字符串
        sheetName = Format(formattedCell.Value, "$#,##0")
        ' 处理非法字符
        sheetName = Replace(Replace(sheetName, "/", "_"), "\", "_")
        ' 检查工作表名长度限制
        If Len(sheetName) > 31 Then
            sheetName = Trim(Left(sheetName, 31))
        End If
        ' 加括号方便排查是否仍有隐形字符
        Debug.Print "处理后的工作表名：[" & sheetName & "]"
        ' 明确通过wb2引用工作表，避免激活上下文歧义
        wb2.Sheets(sheetName).Name = "Option " & i
        wb2.Sheets("Summary").Range("Sheet" & i).Value = "Option " & i
    Next i
End Sub

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