簡単とまでは行きませんが、特定のセル範囲を重複無しで配列に格納するマクロです。
Sub Macro() Dim r As Range Dim i As Long Dim myData() As String Dim f As Boolean ReDim myData(0) For Each r In Selection If myData(0) = "" Then myData(0) = r.Value Else f = False For i = 0 To UBound(myData) If myData(i) = r.Value Then f = True Exit For End If Next If Not f Then ReDim Preserve myData(UBound(myData) + 1) myData(UBound(myData)) = r.Value End If End If Next End Sub
ここでは選択した範囲を配列myDataに入れています。
プルダウンのリストとなる範囲が決まっている場合は、
一箇所あるselectionを特定のRangeに置き換えればいいです。
ありがとうございます。ただ、うーん、簡単ではないんですね。オートフィルタの一覧を横取りするようなことができるといいのですが、