VBA运行报Invalid or unqualified reference错误求代码排查修复

报错原因 #

• 核心报错Invalid or unqualified reference是因为代码中使用了.Cells、.Rows这类带前置点的引用语法，但是代码开头没有对应的With 工作表对象语句，只有末尾孤零零的End With，VBA找不到点对应的引用对象就会抛出这个错误。
• 原代码嵌套If层级过多可读性差，也没有新增Q列的表头配置逻辑，不符合需求。

修正后完整可运行代码 #

Option Explicit

Sub Button2_Click()
    Dim i As Long
    ' 绑定工作表对象，后续带点的引用都会指向Sheet1
    With Sheet1
        ' 新增Q列表头
        .Cells(1, "Q").Value = "处理状态"
        ' 从第2行遍历到B列最后有数据的行
        For i = 2 To .Cells(.Rows.Count, "B").End(xlUp).Row
            ' 跳过B列为空的行
            If Not IsEmpty(.Cells(i, "B").Value) Then
                ' 合并条件判断，简化嵌套逻辑
                If .Cells(i, "J").Value = "No" And .Cells(i, "O").Value <= 0 Then
                    .Cells(i, "Q").Value = "Pending with employee"
                ElseIf .Cells(i, "J").Value = "No" And .Cells(i, "O").Value >= 0 And .Cells(i, "K").Value = "No Action Pending" Then
                    .Cells(i, "Q").Value = "Pending with employee"
                ElseIf .Cells(i, "J").Value = "No" And .Cells(i, "O").Value >= 0 And .Cells(i, "K").Value = "Pending With Manager" Then
                    .Cells(i, "Q").Value = "Pending with Manager"
                ElseIf .Cells(i, "J").Value = "Yes" And .Cells(i, "O").Value >= 0 And .Cells(i, "K").Value = "No Action Pending" Then
                    .Cells(i, "Q").Value = "All Done"
                End If
            End If
        Next i
    End With
    MsgBox "Q列新增完成"
End Sub

主要改动说明 #

• 补全了With Sheet1开头语句，和末尾的End With匹配，解决了无资格引用的报错
• 所有单元格引用都加了前置点，统一绑定到Sheet1，避免跨工作表操作出错
• 把多层嵌套If改成ElseIf结构，逻辑更清晰
• 新增了Q列表头设置逻辑，满足新增Q列的需求
• 补全了原注释里提到的跳过B列为空行的判断逻辑

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