VBA报错：'_Global'对象Range方法调用失败，求文本修改方案

原代码中的核心错误 #

• 无效的Range引用：Range("I2:I") 这种写法不符合VBA语法，必须指定范围的起始和结束单元格。
• 函数使用错误：要移除文本前5个字符，应该用Mid(单元格值, 6)（从第6位开始取剩余字符），而非Left(..., -5)——Left的长度参数不能为负数，这会直接报错。
• With块未正确绑定Range：With Sheet8块内的Range没有加.，导致代码默认引用ActiveSheet，而非指定的Sheet8，触发Range对象错误。
• 语法错误：第二段代码中的Range("H" $ i)是错误写法，字符串和数字连接必须用&，即Range("H" & i)。
• 硬编码行号：循环固定到2000行既不灵活也容易遗漏/处理空行，应该动态获取最后一行数据。
• 列操作逻辑混淆：插入I列后，原I列数据会被挤到J列，你后续引用的数据源完全错误，导致操作对象不对。

修正后的代码（高效批量赋值版） #

Sub TRIM_SSP_CORE()
    Dim lastRow As Long
    
    ' 删除指定列
    Sheet8.Range("A:B,E:J,L:AK,AN:AQ,AS:AW,AY:BF,BH:BH,BJ:BM,BO:BO").Columns.Delete Shift:=xlToLeft
    
    ' 插入新列到I列位置，原I列数据自动右移到J列
    With Sheet8
        .Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        ' 获取原I列（现在是J列）的最后一行数据
        lastRow = .Cells(.Rows.Count, "J").End(xlUp).Row
        ' 批量将J列（原I列）移除前5个字符后写入I列
        .Range("I2:I" & lastRow).Value = .Evaluate("MID(J2:J" & lastRow & ",6,LEN(J2:J" & lastRow & "))")
        ' 隐藏原H列
        .Columns("H:H").Hidden = True
    End With
End Sub

修正后的代码（循环版，适合调试理解） #

Sub TRIM_SSP_CORE()
    Dim i As Long
    Dim lastRow As Long
    
    ' 删除指定列
    Sheet8.Range("A:B,E:J,L:AK,AN:AQ,AS:AW,AY:BF,BH:BH,BJ:BM,BO:BO").Columns.Delete Shift:=xlToLeft
    
    With Sheet8
        ' 插入新列到I列位置，原I列数据右移到J列
        .Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        ' 获取J列（原I列）的最后一行
        lastRow = .Cells(.Rows.Count, "J").End(xlUp).Row
        
        ' 循环处理每一行
        For i = 2 To lastRow
            ' 跳过空单元格
            If .Cells(i, "J").Value <> "" Then
                .Cells(i, "I").Value = Mid(.Cells(i, "J").Value, 6)
            End If
        Next i
        
        ' 隐藏原H列
        .Columns("H:H").Hidden = True
    End With
End Sub

关键说明 #

1. 批量赋值用Evaluate比循环快得多，适合处理大量数据。
2. 动态获取lastRow确保只处理有数据的行，避免空行操作。
3. 插入列后，原I列数据会自动移到J列，所以要从J列取数据源，写入新插入的I列。
4. 所有Range操作都加上.，确保绑定到Sheet8，避免ActiveSheet的干扰。

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