☰

VBA 代码-单元格中的值返回为空

tag-icon • tag-icon microsoft-excel vba
VBA 代码-单元格中的值返回为空

我让这段代码按预期工作，不确定发生了什么变化。我希望这段代码从 G2:G1000 中查找单词 Declined。如果是拒绝的，则隐藏该行并将其涂成红色。如果该行不是拒绝的，则从 H2:H1000 中查找 RETURN。如果是 RETURN，则将其涂成灰色。如果两者都不是，则继续。

这个代码的有趣之处在于，尽管不同的行中 G 和 H 分别带有 RETURN 和 Declined，但代码却显示单元格为空，而事实显然并非如此。使用 F 逐步执行代码，并将鼠标悬停在 if 语句上，它显示 Sheet1.Range("G" & lCounter).Value = Empty。

Sub Format()
    Dim lCounter As Long
    For lCounter = 2 To 1000
        If Sheet1.Range("G" & lCounter).Value = "Declined" Then
            Range("A" & lCounter & ":S" & lCounter).Interior.ColorIndex = 3
            Rows(lCounter).Hidden = True 'Hides Row
        ElseIf Sheet1.Range("H" & lCounter).Value = "RETURN" Then
            Range("A" & lCounter & ":S" & lCounter).Interior.ColorIndex = 16
        Else
    End If
    Next 
End Sub

相关内容