[[20081125153832]]　『A縦列とB縦列の比較で、Bに有ってAに無いものの抽』（PPN）　ページの最後に飛ぶ

『A縦列とB縦列の比較で、Bに有ってAに無いものの抽出方法』（PPN）

A縦列とB縦列に8桁の数字がランダムに並んでいまして、「A」「B」ともに、10000位の数値が縦に並んでいます。

この「A」と「B」を比較して、「B」に有って「A」に無い数値を「C」に抽出したいと思っています。

関数を使って比較をしたのですが、桁数が多すぎて凄く時間がかかってしまいます。
VBAで対処する方法はないでしょうか？

できましたらコードを教えて頂ければ助かります。

宜しくお願い致します。

 こんな感じ。(ROUGE)
'----
Sub test
Dim tbl, i As Long
With CreateObject("Scripting.Dictionary")
  tbl = Range("B1", Range("B" & 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("A1", Range("A" & 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("C:C").ClearContents
  Range("C1").Resize(.Count).Value = Application.Transpose(.Keys)
End With
End Sub

ありがとうございます。
業務が捗りました。

コメント返信：

[ 一覧(最新更新順) ]

[[20081125153832]] 『A縦列とB縦列の比較で、Bに有ってAに無いものの抽』（PPN） ページの最後に飛ぶ

[[20081125153832]]　『A縦列とB縦列の比較で、Bに有ってAに無いものの抽』（PPN）　ページの最後に飛ぶ