如果是rngcell=和next cell=，则此cell=和next cell=为Excel VBA

Question

我正在寻找比较两个单元格范围，第一个目标是看看是否有任何差异，即如果这个单元格没有出现在这个范围内。其次，如果单元格出现，则下一个单元格将获得此值。

目前，我已经能够输出第一个区域中没有出现在第二个区域中的任何单元格：

For Each rngCell In Range("F7:F500")
    If WorksheetFunction.CountIf(Range("H7:H500"), rngCell) = 0 Then
        Range("O" & Rows.Count).End(xlUp).Offset(1) = rngCell
    End If
Next

虽然到目前为止，我已经尝试了以下方法，但我对如何处理第二部分感到非常困惑：

For Each rngCell In Range("B6:B500")
    If WorksheetFunction.CountIf(Range("H7:H500"), rngCell) = 0 Then
    Set r2 = Range("E7:E500")
    Else If (Range("H7:H500")) and WorksheetFunction.CountIf(r2("vault")) Then
    Range("O" & Rows.Count).End(xlUp).Offset(1) = rngCell

基本上，我正在寻找一个输出，其中所有单元格在第一个范围内，但不是第二个，所有单元格在第一个范围内，第二个单元格，但下一个单元格包含一个特定值。

Answer 1

这里有一些东西可以试一试。

我喜欢将Range/xlUp/Offset(1)连续添加到列表的底部。

(需要前面的列(“O:O”).ClearContents)

如果我错了，请纠正我。

让我们阐明第二个目标--第一个范围和第二个单元格中的所有单元格，但下一个单元格包含一个特定值。

  If  rngCell("B6:B500") IS in Range("H7:H500") 
  AND rngCell("B6:B500") IS in Range("E7:E500") MATCH (not CountIf) to get the row number
  AND if MatchedRowNum > 0 then
  AND "vault"            IS in Range("E7:E500").Offset(MatchedRowNum + 1)