| 何度も申し訳ありません。 先ほど抽出したリストから、更に重複させないリストを作成しようとしています。 こちらのサイトのコードを参考にさせていただいたのですが 5行目の二つ目の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
|