Compare column A with column C, Move matching Cell from location to column B on corresponding row
问题 Sub Match() Dim var As Variant, iSheet As Integer, iRow As Long, iRowL As Long, bln As Boolean, rng1 As Range, rng2 As Range, i As Long, j As Long If Not IsEmpty(rng1) Then For i = 1 To Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).Row Set rng1 = Sheets("Sheet1").Range("A" & i) For j = 1 To Sheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row Set rng2 = Sheets("Sheet1").Range("C" & j) bln = False var = Application.Match(rng1.Value, rng2, 0) If Not IsError(var) Then bln = True Exit For