A列とB列を比べて同じならC列に○を入れます。
Dim L As Integer
L = 1 '初期値
Do While Cells(L, 1).Value <> ""
If Cells(L, 1).Value <> Cells(L, 2).Value Then
Cells(L, 3).Value = "×"
Else
Cells(L, 3).Value = "○"
End If
L = L + 1
Loop
