人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

A列とB列を比較して差分を調べるような関数やマクロを教えていただけますでしょうか。
仕事で悩んでおります。要約して述べますと、A列には、

A列
りんご
みかん
キュウイ
ドラゴンフルーツ
マンゴー




と、膨大にデータが並んでおります。
そしてB列には、

B列
EEぶどうFF
IIIマンゴーKKKK
GGドラゴンフルーツHHH
AAAりんごBB
CCみかんDD




と、少し似たようなデータが膨大に並んでおります。
ここにおきまして、A列の文字列が、B列のどこかの行の文字列の一部に入っていれば、そのセルからデータを消したいのです。
つまり上記の例の場合、B列が、

B列
EEぶどうFF
(空白セル)
(空白セル)
(空白セル)
(空白セル)




となるようにしたいのです。(「りんご」「みかん」「ドラゴンフルーツ」「マンゴー」という文字列はA列の中に既に出てきていたので、B列の方からその文字列を含む該当セルはデータを消して空白セルにする)

そのような関数やマクロをご存知の方がいらっしゃいましたら、お教えいただけないでしょうか。
よろしくお願いします。

●質問者: moon-fondu
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●300ポイント ベストアンサー
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

moon-fonduさんのコメント
>きゃづみぃさん ありがとうございます!試してみます! すみません、実は先に別に加工する作業が生じまして。 別トピックに質問を立ち上げましたので、よければそちらの方もご回答いただければ幸いです。 よろしくお願い致します。 http://q.hatena.ne.jp/1413611963 http://q.hatena.ne.jp/1413612951

moon-fonduさんのコメント
試してみました!うまくBセルからデータを消すことが出来ました! ありがとうございますヽ(´▽`)/
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ