Excel VBA質問箱 IV

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

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


9566 / 76732 ←次へ | 前へ→

【72727】Re:重複文字の書き出し
発言  kanabun  - 12/9/9(日) 19:56 -

引用なし
パスワード
   ▼Aoichi さん:こんにちは〜

Dictionaryを使うのは Try1といっしょですが、
今度は Dictionaryを2つ用意して、1回のLoopのなかで
重複して出てきたアイテムだけを dic2 に格納するように
してみました。

Sub Try2()
  Dim i As Long
  Dim v As Variant
  Dim dic As Object
  Dim dic2 As Object '重複アイテムを格納する
 
  Set dic = CreateObject("Scripting.Dictionary")
  Set dic2 = 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に登録
    If Not dic.Exists(v(i, 1)) Then
      dic(v(i, 1)) = Empty
    ElseIf Not dic2.Exists(v(i, 1)) Then
      dic2(v(i, 1)) = Empty
    End If
  Next
  With Worksheets("重複一覧")
    .[C3].Value = "重複一覧"
    .[C4].Resize(dic2.Count).Value2 = _
           Application.Transpose(dic2.Keys)
  End With
End Sub

1 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 発言

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