VBA执行Trim遍历列时报'需要对象'错误，已声明变量仍报错如何解决

以下是你代码中所有触发错误的问题点：

• 赋值规则混用：LastRow是Long数值类型，只有对象类型变量（如Worksheet、Range）需要用Set关键字赋值，数值变量直接赋值即可，给LastRow加Set属于基础语法错误。
• 变量类型定义错误：Cell被声明为Long数值类型，但遍历单元格时每个返回值是Range对象，类型不匹配直接触发报错。
• 变量引用错误：循环中Range("Rng")是调用工作表中名为Rng的命名区域，你实际要引用的是已经定义好的Rng变量，直接写变量名即可，不需要加引号和Range包裹。
• 命名冲突：你的宏名直接取为Trim，和VBA内置的Trim函数重名，执行时会产生调用优先级冲突。
• 行计数未绑定工作表：Rows.Count默认取活动工作表的行数，如果当前活动工作表不是Sales，会导致LastRow计算错误。
• 冗余引用：已经定义了SalesWs指向Sales工作表，后续不需要反复写全路径引用工作表，减少出错概率。

修正后完整代码 #

Sub TrimColumnB()
    Dim Cell As Range, SalesWs As Worksheet, LastRow As Long, Rng As Range
    
    Set SalesWs = ThisWorkbook.Sheets("Sales")
    ' 数值类型变量无需Set，行计数绑定对应工作表
    LastRow = SalesWs.Range("B" & SalesWs.Rows.Count).End(xlUp).Row
    Set Rng = SalesWs.Range("B2:B" & LastRow)
    ' 直接引用已定义的Rng变量
    For Each Cell In Rng
        ' 显式调用VBA内置Trim彻底避免命名冲突
        Cell.Value = VBA.Trim(Cell.Value)
    Next Cell
    
Exit Sub
End Sub

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