| 何度も申し訳ありません。
先ほど抽出したリストから、更に重複させないリストを作成しようとしています。
こちらのサイトのコードを参考にさせていただいたのですが
５行目の二つ目のRangeで、デバックします。
「参照が不正または不完全です」
AC列には CONCATENATE関数が入っています。
(本当にやりたいのは、AC列とAD列の両方を参照し、
重複しない品目だけを、B列に表示させたいのです。
不明瞭な説明で申し訳ありません。
よろしくお願いいたします。
Sub myDic()
Dim myDic As Object, myKey As Variant
Dim c As Variant, varData As Variant
Set myDic = CreateObject("Scripting.Dictionary")
varData = .Range("AC3", .Range("AC" & Rows.Count).End(xlUp)).Value
End With
For Each c In varData
If Not c = Empty Then
If Not myDic.Exists(c) Then
myDic.Add c, Null
End If
End If
Next
myKey = myDic.Keys
.Range("B:B").ClearContents
.Range("B3").Resize(myDic.Count) = Application.WorksheetFunction.Transpose(myKey)
End With
Set myDic = Nothing
End Sub
|
重複排除リスト
/たけこ (20/12/14(Mon) 15:52) #13489