A列とB列を比較して差分を調べるような関数やマクロを教えていただけますでしょうか。
仕事で悩んでおります。要約して述べますと、A列には、
A列
りんご
みかん
キュウイ
ドラゴンフルーツ
マンゴー
・
・
・
と、膨大にデータが並んでおります。
そしてB列には、
B列
EEぶどうFF
IIIマンゴーKKKK
GGドラゴンフルーツHHH
AAAりんごBB
CCみかんDD
・
・
・
と、少し似たようなデータが膨大に並んでおります。
ここにおきまして、A列の文字列が、B列のどこかの行の文字列の一部に入っていれば、そのセルからデータを消したいのです。
つまり上記の例の場合、B列が、
B列
EEぶどうFF
（空白セル）
（空白セル）
（空白セル）
（空白セル）
・
・
・
となるようにしたいのです。（「りんご」「みかん」「ドラゴンフルーツ」「マンゴー」という文字列はA列の中に既に出てきていたので、B列の方からその文字列を含む該当セルはデータを消して空白セルにする）
そのような関数やマクロをご存知の方がいらっしゃいましたら、お教えいただけないでしょうか。
よろしくお願いします。
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
きゃづみぃ
満足300pt
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
-
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2014-10-17 01:39:30
- 終了日時
- 2014-10-21 03:31:02
- 回答条件
- 1人1回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
3
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者21
-
内定してほしいポケモンはいますか？匿名質問者
Dim ARow, BRow As Long
Dim lp1, lp2 As Long
ARow = Range("A1").End(xlDown).Row - 1
BRow = Range("B1").End(xlDown).Row - 1
If ARow < 0 Or BRow < 0 Then
Exit Sub
End If
For lp1 = 0 To BRow
For lp2 = 0 To ARow
If InStr(Range("B1").Offset(lp1), Range("A1").Offset(lp2)) > 0 Then
Range("B1").Offset(lp1) = ""
Exit For
End If
Next lp2
Next lp1
End Sub
適当に作ったので、質問文にあるサンプルデータでしかテストしていません。
マクロじゃないですけど、この関数を使うと A2とB2が等しいか出してくれる関数です。
参考になれば幸いです。
＞かずきち。さん
コメントありがとうございます！
先に別の加工の疑問が生じまして。
お手数お掛け致しますがお時間ありましたらご回答よろしくお願い致します。
http://q.hatena.ne.jp/1413611963
http://q.hatena.ne.jp/1413612951