|
AutoFilter について、2点質問させてください。
■質問1
下表のデータで、
A B C
1
2 住所 優先順位
3 東京都 1
4 東京都 1
5 神奈川県 2
6 静岡県 3
7 静岡県 3
8 最終行
下記ソースを実行(Tagetに全て設定)すると、表の一番したの最終行が非表示になってしまいます。
(ちなみに、Tagetに全て設定しないパターンは、どの組み合わせも非表示になるものは非表示になり、最終行も表示されます)
デバッグでも原因が掴めなかったため、ご教授ください。
Sub 質問()
Dim Target(2) As String
Target(0) = 1
Target(1) = 2
Target(2) = 3
Range(Cells(2, 2), Cells(7, 3)).AutoFilter Field:=2, _
Criteria1:=Target, _
Operator:=xlFilterValues, VisibleDropDown:=False
End Sub
■質問2
当初VisibleDropDown:=Falseで矢印が非表示になっていたのですが、何かをきっかけに非表示にならなくなってしまいました。
何がいけないのでしょうか?
以上、よろしくお願いします。
|
|