Excel VBA質問箱 IV

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

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


30511 / 76733 ←次へ | 前へ→

【51487】Re:一列ずつ重複データを削除して上詰めにしたい
発言  じゅんじゅん  - 07/9/21(金) 9:52 -

引用なし
パスワード
   Dictionaryオブジェクトを使用して重複をなくしてます。

Sub test()
 Dim DIC As Object
 Dim r As Range, rr As Range
 Dim v, vv

Set DIC = CreateObject("Scripting.Dictionary")
 
For Each r In Range([A10], Cells(10, Columns.Count).End(xlToLeft))
   Set rr = Range(Cells(10, r.Column), Cells(Rows.Count, r.Column).End(xlUp))
   v = rr.Value
   For Each vv In v
     If Not DIC.exists(vv) Then
      DIC(vv) = Empty
     End If
   Next
   rr.ClearContents
   Cells(10, r.Column).Resize(DIC.Count).Value = Application.Transpose(DIC.keys)
   DIC.RemoveAll
Next
End Sub
ご参考になれば幸いです。
2 hits

【51486】一列ずつ重複データを削除して上詰めにしたい ぼんしゃん 07/9/21(金) 8:19 質問
【51487】Re:一列ずつ重複データを削除して上詰めに... じゅんじゅん 07/9/21(金) 9:52 発言
【51531】Re:一列ずつ重複データを削除して上詰めに... ぼんしゃん 07/9/21(金) 22:23 お礼

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