Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


22883 / 76732 ←次へ | 前へ→

【59222】セル内の文字列の比較VBAの改変
質問  PN  - 08/12/2(火) 18:20 -

引用なし
パスワード
   お世話になっています。

このVBAで「D」にあって「B」に無い文字列を「F」に抽出しています。
ただ「D」に同じ文字列が複数あった場合、その文字列が「B」に一つでも有れば、
「F」には文字列が抽出されません。

「D」に同じ文字列が4つあって、「B」にその文字列が2つあった場合、
「F」にその文字列を2つ表示させるには、どのように変更すれば良いのでしょうか?

お手数ではありますが、ご教授頂ければ幸いです。


Sub 比較()
Dim tbl, i As Long
With CreateObject("Scripting.Dictionary")
 tbl = Range("d2", Range("d" & Rows.Count).End(xlUp)).Value
 For i = 1 To UBound(tbl, 1)
  If Not .Exists(tbl(i, 1)) Then
   .Add tbl(i, 1), Empty
  End If
 Next
 tbl = Range("b2", Range("b" & Rows.Count).End(xlUp)).Value
 For i = 1 To UBound(tbl, 1)
  If .Exists(tbl(i, 1)) Then
   .Remove tbl(i, 1)
  End If
 Next
 Range("f:f").ClearContents
 Range("f2").Resize(.Count).Value = Application.Transpose(.Keys)
End With
End Sub

0 hits

【59222】セル内の文字列の比較VBAの改変 PN 08/12/2(火) 18:20 質問
【59223】Re:セル内の文字列の比較VBAの改変 n 08/12/2(火) 18:31 発言
【59227】Re:セル内の文字列の比較VBAの改変 PN 08/12/2(火) 21:20 発言
【59229】Re:セル内の文字列の比較VBAの改変 n 08/12/2(火) 21:26 発言
【59232】申し訳ありません。 PN 08/12/2(火) 21:39 お礼
【59231】Re:セル内の文字列の比較VBAの改変 Hirofumi 08/12/2(火) 21:37 発言
【59233】ダブルで回答をありがとうございます。 PN 08/12/2(火) 21:42 お礼

22883 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free