VBA报错Error 438：Object doesn't support this property or method排查求助

错误原因 #

1. 非法属性调用：代码中Worksheets("backEnd_Lost&Found").rng.Value是错误写法，rng是你定义的Range变量，不属于工作表对象的属性，直接触发Error 438（对象不支持该属性或方法）。
2. ActiveCell误用：遍历Range区域时无需依赖ActiveCell，直接操作遍历的rng对象即可，否则会导致赋值位置混乱。

修正后的代码 #

Public Sub RolloutStage()
    Dim ws As Worksheet
    Dim rng As Range
    
    ' 提前引用目标工作表，简化代码并提升效率
    Set ws = Worksheets("backEnd_Lost&Found")
    
    For Each rng In ws.Range("B5:B28")
        Select Case rng.Value
            Case "Live"
                rng.Offset(0, 1).Value = 8
            Case "Configuration"
                rng.Offset(0, 1).Value = 7
            Case "Testing"
                rng.Offset(0, 1).Value = 6
            Case "Planned"
                rng.Offset(0, 1).Value = 5
            Case "Pending"
                rng.Offset(0, 1).Value = 4
            Case "Not planned"
                rng.Offset(0, 1).Value = 3
            Case "No contact"
                rng.Offset(0, 1).Value = 2
            Case Else
                rng.Value = "Not interested"
                rng.Offset(0, 1).Value = 1
        End Select
    Next rng
End Sub

关键修正点 #

• 直接使用rng.Value获取当前单元格值，摒弃通过工作表对象调用变量的错误写法。
• 用rng.Offset(0, 1).Value直接给右侧相邻单元格赋值，替代ActiveCell，确保赋值位置精准。
• 引入ws变量引用目标工作表，减少重复书写，提升代码可读性和执行效率。
• 将多分支ElseIf替换为Select Case结构，逻辑更清晰易维护。

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