|
▼マナ さん:
>無駄なことしているようなような気もしますが
>除外したいもの除いた配列を作成してはいかがでしょうか。
>
>Sub test()
> Dim a
> Dim d As Object
> Dim v
> Dim i As Long
>
> a = Array("田中", "土屋", "鈴木")
>
> Set d = CreateObject("scripting.dictionary")
>
> ActiveSheet.AutoFilterMode = False
> v = Range("a1").CurrentRegion.Columns(1).Value
>
> For i = 1 To UBound(v)
> d(v(i, 1)) = Empty
> Next
>
> For i = 0 To UBound(a)
> If d.exists(a(i)) Then d.Remove (a(i))
> Next
>
> Range("a1").CurrentRegion.AutoFilter Field:=1, _
> Criteria1:=d.keys, _
> Operator:=xlFilterValues
>
>End Sub
まだ完全解決とは行きませんが、参考にして研究してみます。
ありがとうございました。
|
|