A列とB列を比べる

たけうちとおる (2011年7月11日) | コメント(0) | トラックバック(0)

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