IF-THEN语句中的单元比较循环

我需要将范围src.Range("A1:A" & 10)每个单元格与范围src3.Range("A1:A" & 3)单元格进行比较，并且仅在src单元格不等于任何src3单元格。 如果我手动列出每个比较（作为评论 – 我最终得到的结果，它的工作原理，但会有更多的比较范围）。 但是，当我尝试循环它时不会。 我不能把IF从那里分离出来。 我找不到替代品。

  For temprow = 1 To rngSelectionTable.Rows.Count tempselected = rngSelectionTable(temprow, 2).Value Crit = rngSelectionTable(temprow, 5).Value If tempselected = True Then For Each r In src.Range("A1:A" & 10) 'If r <> 0 _ And r <> src3.Range("A1") _ And r <> src3.Range("A2") _ And r <> src3.Range("A3") _ Then myFinalResult = r For Each comparisonRange In src3.Range("A1:A" & 3) 'does not work If r <> 0 And r <> comparisonRange 'does not work Next comparisonRange 'does not work Then myFinalResult = r 'does not work 'rest of the code below If myFinalResult = Crit Then If CopyRange Is Nothing Then Set CopyRange = r.EntireRow Else Set CopyRange = Union(CopyRange, r.EntireRow) End If End If Next r End If Next temprow 

Answer 1

像这样的东西应该工作：

 Sub test() Dim r As Range, rng10 As Range, rng3 As Range Set rng10 = Sheet1.Range("a1:a10") Set rng3 = Sheet2.Range("$a$1:$a$3") For Each r In rng10 If Application.WorksheetFunction.CountIf(rng3, r) > 0 Then 'proceed here End If Next r End Sub