Как проверить данные соответствия в vba excel

Question

У меня есть 2 столбца с данными на листе. Мне нужно сравнить, если он будет соответствовать, я подталкиваю их в третий столбец.

Это мой код:

Sub Match() 

Dim c1 As Range 
Dim c2 As Range 
Dim sh As Worksheet 

Set sh = ThisWorkbook.Sheets("UserACL+User02") 

Dim CellCounter As Integer 
Dim TempFound As Boolean 
CellCounter = 2 

For Each c1 In sh.Range("B2:B200") 
TempFound = False 
    For Each c2 In sh.Range("C2:C200") 
     If c1.Value = c2.Value Then 
      sh.Range(CellCounter, 4).Value = c1.Value 
      CellCounter = CellCounter + 1 
      TempFound = True 
     Else 
      TempFound = False 
      Exit For 
     End If 
    Next c2 
Next c1 

End Sub

Он может работать, но ничего не произойдет с третьими цв. Просьба помочь

Answer 1

один быстрый, легкий способ Mach 2 колонки может быть

Sub Match() 
    Dim arrcell As Variant, i As Variant 
    arrcell = Range("B2:C200") 
    For i = 1 To UBound(arrcell) 
     If arrcell(i, 1) = arrcell(i, 2) Then Cells(i + 1, 4) = arrcell(i, 1) 
    Next i 
End Sub