↓「作業用」シートを用意していただき、A1セルに「シート名」とご入力なさってください。 ↓作業用ファイルにシート名を書き出した後、シート名を並べ替え、それに併せてシートを並べ替えました。 もう少しスマートな方法があるのかもしれませんが、取り急ぎ備忘まで。 Sub シートを並べ変える() With ActiveWorkb...
タイトル通り、フィルタ確認し、ついていたら取って付け直すのは、 以下のコードになります。 Sub test() With ActiveSheet If .AutoFilterMode Then .AutoFilterMode = False End If .UsedRange.AutoFilter End With E...