Excel VBA質問箱 IV

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

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


29076 / 76732 ←次へ | 前へ→

【52945】Re:二列のデータ比較マクロ作成で困ってます
発言  じゅんじゅん  - 07/12/9(日) 22:40 -

引用なし
パスワード
   私も参考になればと言うレベルですが。
1行目は項目行扱いとしてます。

Sub test()
Dim Dic As Object
Dim a, b, v, vv
Dim i As Long

Set Dic = CreateObject("Scripting.Dictionary")
i = 2
With Worksheets("Sheet1")
   v = .Range(.[A2], .Cells(Rows.Count, 1).End(xlUp)).Value
    For Each vv In v
      Dic(vv) = Empty
    Next
   .Range("C:D").ClearContents
   a = .Range(.[B2], .Cells(Rows.Count, 2).End(xlUp)).Value
    For Each b In a
      If Not Dic.exists(b) Then
        .Range("C" & i).Value = b
        i = i + 1
       Else
        Dic.Remove (b)
       End If
    Next
   .Range("D2").Resize(Dic.Count).Value = Application.Transpose(Dic.keys)
   .Range("C1").Resize(, 2).Value = [{"追加No.","削除No."}]
End With
End Sub

(ご希望にあっているかは不安ですけど)
1 hits

【52904】二列のデータ比較マクロ作成で困ってます しーちゃん 07/12/8(土) 23:47 質問
【52905】Re:二列のデータ比較マクロ作成で困ってます かみちゃん 07/12/9(日) 1:05 発言
【52908】Re:二列のデータ比較マクロ作成で困ってます Hirofumi 07/12/9(日) 8:57 回答
【52909】Re:二列のデータ比較マクロ作成で困ってます Hirofumi 07/12/9(日) 9:33 回答
【52940】Re:二列のデータ比較マクロ作成で困ってます ichinose 07/12/9(日) 21:29 発言
【52945】Re:二列のデータ比較マクロ作成で困ってます じゅんじゅん 07/12/9(日) 22:40 発言
【53449】Re:二列のデータ比較マクロ作成で困ってます しーちゃん 08/1/13(日) 14:51 お礼

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