Excel VBA質問箱 IV

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

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


14719 / 76734 ←次へ | 前へ→

【67504】Re:重複データの抽出
発言  kanabun  - 10/12/9(木) 17:47 -

引用なし
パスワード
   ▼まりな さん:

>1.Sheet1のA1〜E20の100個のセルにデータが表示されている。

こんどは 検索セル範囲が「表」なわけですね

Sub Try3()
 Dim c As Range
 Dim i As Long, n As Long
 Dim s, v
 Dim dic As Object
 Set dic = CreateObject("Scripting.Dictionary")
 For Each c In Worksheets("Sheet1").[A1:E20]
   If Not IsEmpty(c.Value) Then dic(c.Value) = Empty
 Next
 
 With Worksheets("Sheet2").Range("V:V")
  With Excel.Range(.Item(1), .Item(.Count).End(xlUp))
   v = .Value
   ReDim dup(1 To UBound(v), 0)
   For i = 1 To UBound(v)
     If Not IsEmpty(v(i, 1)) Then
      If dic.Exists(v(i, 1)) Then
        dup(i, 0) = "重複"
      End If
     End If
   Next
   .Offset(, 10).Value = dup
  End With
 End With
 Set dic = Nothing
 
End Sub
0 hits

【67502】重複データの抽出 まりな 10/12/9(木) 16:31 質問
【67504】Re:重複データの抽出 kanabun 10/12/9(木) 17:47 発言
【67522】Re:重複データの抽出 まりな 10/12/10(金) 14:15 お礼
【67513】Re:重複データの抽出 UO3 10/12/9(木) 19:57 回答
【67514】Re:重複データの抽出 UO3 10/12/9(木) 19:58 発言
【67523】Re:重複データの抽出 まりな 10/12/10(金) 14:17 お礼

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