度々失礼します｡VBAのプログラムで写真のように､列別で重複しているデータを空白にし､行を詰めないよ

度々失礼します｡VBAのプログラムで写真のように､列別で重複しているデータを空白にし､行を詰めないようにするにはどうしたらいいでしょうか｡

No.1 ベストアンサー 回答者： ShowMeHow 回答日時： 2020/05/25 14:21

a=1

Do
if trim(cells(a,1))=trim(cells(a,2))
then cells(a,2)=""
end if
a = a + 1
If Cells(a, 1) = ”” Then
Exit Do
End If
Loop

のようなことですかね。

この回答へのお礼

ShowMeHowさんまたまたありがとうございます｡もう頭が上がらないですね…
まさしくこの通りです!dictionary使うのかと思ってましたがForでも出来るのですね…

お礼日時：2020/05/25 14:50