Excel VBA質問箱 IV

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

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


9568 / 76732 ←次へ | 前へ→

【72725】Re:重複文字の書き出し
発言  kanabun  - 12/9/8(土) 17:08 -

引用なし
パスワード
   ▼Aoichi さん:
おじゃまします

>重複コードを別シートに書き出した

Dictionaryオブジェクトを使って「商品コード」の出現回数をカウントし、
1回だけのものはDictionaryから削除して、重複アイテムをリストしました。

Sub Try1()
  Dim i As Long
  Dim v As Variant
  Dim dic As Object
  
  Set dic = CreateObject("Scripting.Dictionary")
  With Worksheets("重複Data")
    v = .Range("C4", .Cells(.Rows.Count, 3).End(xlUp)).Value2
  End With
  For i = 1 To UBound(v)     '商品コードをDictionaryに登録
    dic(v(i, 1)) = dic(v(i, 1)) + 1  '出現回数カウント
  Next
  For Each v In dic.Keys()
    Debug.Print v, dic(v)
    If dic(v) < 2 Then dic.Remove v '「重複なし」なら削除
  Next
  With Worksheets("重複一覧")
    .[C3].Value = "重複一覧"
    .[C4].Resize(dic.Count).Value2 = _
        Application.Transpose(dic.Keys)
  End With
End Sub

0 hits

【72720】重複文字の書き出し Aoichi 12/9/8(土) 12:45 質問
【72722】Re:重複文字の書き出し UO3 12/9/8(土) 13:44 発言
【72724】Re:重複文字の書き出し UO3 12/9/8(土) 14:14 発言
【72725】Re:重複文字の書き出し kanabun 12/9/8(土) 17:08 発言
【72726】Re:重複文字の書き出し Aoichi 12/9/8(土) 22:41 お礼
【72727】Re:重複文字の書き出し kanabun 12/9/9(日) 19:56 発言

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