Excel VBA質問箱 IV

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

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


52490 / 76732 ←次へ | 前へ→

【29080】Re:共通するデータの抽出
回答  だるま WEB  - 05/9/23(金) 10:36 -

引用なし
パスワード
   こんにちは

とりあえずこんな感じでいかがでしょうか。^d^

Sub test()
  Dim rngA As Range
  Dim rngB As Range
  Dim Dic As Object
  Dim myCell As Range
  
  Set rngA = ActiveSheet.UsedRange.Columns("A:A")
  Set rngB = ActiveSheet.UsedRange.Columns("B:B")
  
  Set Dic = CreateObject("Scripting.Dictionary")
  
  For Each myCell In rngA.Cells
    Dic.Item(CStr(myCell.Value)) = Empty
  Next
  
  For Each myCell In rngB.Cells
    With myCell
      If Dic.Exists(CStr(.Value)) Then
        .Interior.ColorIndex = 3
      End If
    End With
  Next
  
  Set myCell = Nothing
  Set Dic = Nothing
  Set rngB = Nothing
  Set rngA = Nothing
End Sub

範囲指定はどうしたいのか分からなかったので固定にしてあります。

なお、もっと簡単に実行したいということでしたらこんな出来合いのソフトもあります。
(ただし、列どうしの比較のみですが)

秒速!ダブリ出し
http://www.vector.co.jp/soft/win95/business/se363400.html
2 hits

【29074】共通するデータの抽出 piro 05/9/23(金) 8:20 質問
【29076】Re:共通するデータの抽出 ponpon 05/9/23(金) 8:33 発言
【29118】Re:共通するデータの抽出 piro 05/9/25(日) 13:17 質問
【29125】Re:共通するデータの抽出 Hirofumi 05/9/25(日) 19:20 回答
【29225】Re:共通するデータの抽出 piro 05/9/27(火) 23:56 お礼
【29080】Re:共通するデータの抽出 だるま 05/9/23(金) 10:36 回答
【29120】Re:共通するデータの抽出 piro 05/9/25(日) 13:57 お礼

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