A列文字とE列文字を比較してG列に判定を出力する
エクセルマクロ初心者です。
A列に入力されている文字とE列に入力されている文字を比較して、G列に判定を出力(一致:K 不一致:F)するマクロを考えています。
StrComp関数が返す戻り値を利用して
StrComp(Cells(j, 1), Cells(j, 5), vbTextCompare)
というのを使って比較しようとしましたが、これだと同じ行を参照してしまいます。
A列の方が入力されている行が少ない(例えば:A列は1から10行、E列は1から1000行)ので、A列を基準にE列を比較し、A列が空白行に移った段階で処理を止めたいと思います。
以下に途中まで考えたものを載せます。
j = 1
For j = 1 To Cells(Rows.Count, "E").End(xlUp).Row
Cells(j, 10) = StrComp(Cells(j, 1), Cells(j, 5), vbTextCompare)
If Cells(j, 10).Value = 0 Then
Cells(j, 7).Value = "K"
Else
Cells(j, 7).Value = "F"
End If
Next j
ご教示の程、お願いします。
お礼
たいへん有難うございます。質問の仕方が悪いのに思いどうりの回答をしていただいて有難うございます。これから検索しながらさらに勉強したいとおもいます。