ID非公開

2021/12/3 17:01

11回答

エクセルVBAに詳しい方

補足

複数の飛び飛びの列の指定は難しいですか

Excel | Visual Basic44閲覧

ベストアンサー

0
画像

補足へ... オートフィルタは飛び地で適用は出来ませんので、複数のオートフィルタが必要です。 ですがExcelは1シートで1つしかオートフィルタを使えません。 ので、テーブルを代替で使うのがいいでしょうね。 Sub Macro1() With ActiveSheet.ListObjects .Add(xlSrcRange, Range("$A$5:$A$14"), , xlYes).Name = "テーブル1" .Add(xlSrcRange, Range("$C$8:$C$18"), , xlYes).Name = "テーブル2" .Add(xlSrcRange, Range("$E$1:$E$7"), , xlYes).Name = "テーブル3" End With End Sub マクロ記録から余計な部分を削除しているだけです。 テーブルは詳しくないので、追加質問は勘弁て事で。

画像

ThanksImg質問者からのお礼コメント

ありがとうございます♪ 確認してみます。

お礼日時:2021/12/4 9:00