Private Sub フィルター全開()
 With Activesheet
  If .FilterMode = True Then 'フィルターがある場合
   .ShowAllData '全部開く
  End If
 End With
End Sub

前へ 次へ

この情報が含まれているまとめはこちら

【VBA】 オートフィルターでの抽出作業【Excel】

オートフィルターでの可視セルのコピーや、絞り込みです。可視セルのみコピーしたい場合や、可視セルのみ数式をコピーしたい場合など様々な場合で使いたいことは多いでしょう!ということでまとめます。(取り急ぎ。 追記予定)

このまとめを見る