Question

我需要一个VBA代码来遍历range1（AA：AB）中的那些行，这些行在Col A中找不到单元格AA中的值。

例如

A
1
2
4

AA AB
1  Jon
3  Bob
4  Frank
5  Hank

在这个例子中，我需要循环遍历包含Bob和Hank的行（2次迭代）

Answer 1

Sub cycle()

On Error GoTo Unmatched

Set used_range = ActiveSheet.UsedRange
For Each Line In used_range.Rows
    Key = Cells(Line.Row, 2).Value
    If (Key <> "") Then
        x = Application.WorksheetFunction.VLookup(Key, used_range, 1, False)
        End If
    Next Line
Exit Sub

Unmatched:
MsgBox (Cells(Line.Row, 2).Value & " " & Cells(Line.Row, 3).Value)
Resume Next

End Sub

一些注意事项 - 我在测试中使用了B列和C列（索引2和3） - 用适当的列索引号代替电子表格

在Unmatched之后的代码中放置您需要执行的细gs：

循环遍历col A中不在col B中的所有值

1 个答案: