重複しないレコードを抽出するとオートフィルタの矢印が消える

質問

リストを作成しています。
B列に氏名が入っています。その他C列には地域、D列には分類などそれぞれのデータが入力してあり、オートフィルタで抽出できるようになっています。

ここでB列の重複しない人の名前をAF列に抽出・転記したマクロを作ったのですが、マクロが動作すると同時に、今まであったオートフィルタの矢印も消えてしまいます。
重複しない人の名前を抽出・転記したあとも、今まで通りオートフィルタの矢印（機能）を表示するにはどうしたらいいのでしょうか。

Private Sub Workbook_Open()

With Worksheets("顧客管理表")

.Columns("B").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Columns("AF"), _
Unique:=True
.EnableAutoFilter = True
End With
End Sub

いろいろ試したのですが、ダメでした。よろしくお願い致します。

回答No.1

myRange · ベストアンサー

このブックを開く時点では、オートフィルターがセットされてるということですね。

'-------------------------------------------
Private Sub Workbook_Open()
　　With Worksheets("顧客管理表")
　　　　.Columns("B").AdvancedFilter _
　　　　　　　Action:=xlFilterCopy, _
　　　　　　　CopyToRange:=.Columns("AF"), _
　　　　　　　Unique:=True
　　　　.EnableAutoFilter = True

　　　　.Select　　　　　'●
　　　　Range("B1").AutoFilter　　'●

　　End With
End Sub
'-----------------------------------------

●の２行を追加してみてください。

お礼

ありがとうございます！
重複リストを抽出した後もオートフィルターが消えずに
セットされました！

本当にありがとうございました。