質問: A列とB列を比較して差分を調べるような関数やマクロを教えていただけますでしょうか。 仕事で悩んでおります。要約して述べますと、A列には、 A列 りんご みかん キュウイ ドラゴンフルーツ マンゴー ・ ・ ・ と、膨大にデータが並んでおります。 そしてB列には、 B列 EEぶどうFF IIIマンゴーKKKK GGドラゴンフルーツHHH AAAりんごBB CCみかんDD ・ ・ ・ と、少し似たようなデータが膨大に並んでおります。 ここにおきまして、A列の文字列が、B列のどこかの行の文字列の一部に入っていれば、そのセルからデータを消したいのです。 つまり上記の例の場合、B列が、 B列 EEぶどうFF (空白セル) (空白セル) (空白セル) (空白セル) ・ ・ ・ となるようにしたいのです。(「りんご」「みかん」「ドラゴンフルーツ」「マンゴー」という文字列はA列の中に既に出てきていたので、B列の方からその文字列を含む該当セルはデータを消して空白セルにする) そのような関数やマクロをご存知の方がいらっしゃいましたら、お教えいただけないでしょうか。 よろしくお願いします。
回答: ``` Sub Macro1() Dim a As Long Dim b As Range For a = 1 To Rows.Count If Cells(a, "A") = "" Then Exit For Set b = Columns("B").Find(Cells(a, "A")) If Not b Is Nothing Then c = b.Address b = "" Do Set b = Columns("B").FindNext(b) If b Is Nothing Then Exit Do b = "" Loop Until b.Address = c End If Next a End Sub ```