VBA 检查值是否在有条件的列表中

debugcn 发表于 Dev

贾克

Sub PullUniques()
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Dim rngCell As Range

For Each rngCell In Range("A1:A" & LastRowColumnA)
    If WorksheetFunction.CountIf(Range("B1:B" & LastRowColumnA), rngCell) <> 0 And _
       Range(WorksheetFunction.CountIf(Range("B1:B" & LastRowColumnA), rngCell) <> 0).Offset(0, 1).Row <= 0 Then
        MsgBox "Please correct Item" & rngCell & " Amount Data"
    End If
Next

此代码正在查找 B 列以查看 A 列是否具有任何相同的值。如果我不使用 if 语句的第二行，代码工作正常，但是当我尝试添加第二个条件时，列 A 匹配 B 且列 C 的值不大于 0，它不起作用。我怎样才能使这段代码工作？

真希

我认为您正在尝试检查，

1）A 中的值是否存在于 B 列中，
2）如果为 TRUE，则 C 列中的值是否小于或等于 0。
如果这是您需要的，下面的代码应该可以工作。

Sub PullUniques()
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Dim rngCell As Range

For Each rngCell In Range("A1:A" & LastRowColumnA)
    If WorksheetFunction.CountIf(Range("B1:B" & LastRowColumnA), rngCell) <> 0 And _
       Range("C" & rngCell.Row).Value <= 0 Then
       MsgBox "Please correct Item" & rngCell & " Amount Data"
    End If
Next

End Sub

但是，如果您的条件是，
1) 如果 A 中的值与 B 中的值相同，
2) 如果为 TRUE，则 C 列中的值小于或等于 0。
那么您不需要使用countif

Sub PullUniques()
LastRowColumnA = Cells(Rows.Count, 1).End(xlUp).Row
Dim rngCell As Range

For Each rngCell In Range("A1:A" & LastRowColumnA)
Debug.Print Range("B" & rngCell.Row).Value & "/" & Range("C" & rngCell.Row).Value
    If Range("B" & rngCell.Row).Value = rngCell And _
       Range("C" & rngCell.Row).Value <= 0 Then
       MsgBox "Please correct Item" & rngCell & " Amount Data"
    End If
Next

End Sub

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。