.AutoFilter すると ON/OFF トグルするので、指定行にオートフィルタ適用されてるか確認して処理してます。 ' オートフィルタの範囲の最初の行がRowNum行目か確認 Function IsAutoFilterOnRow(WorkBookName, SheetName, RowNum) As Boolean Dim ws As Worksh…