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