質問: True Call AutoIncrement(MaxRow) Else ' ActiveSheet.ShowAllData ' 絞り込みを解除 ActiveSheet.AutoFilter Call AutoIncrement(MaxRow) End If ``` ずっとテーブルフィルターについて調べていたのですが、 AutoFilterと重なってよくわからなくなってきました。 こうすると、より分かりやすい、簡単だよというのがあれば教えていただければと思います。 よろしくお願いいたします。 ### 補足情報(FW/ツールのバージョンなど) ExcelはOffice365なので、2016です。
回答: ``` Sub test() With Worksheets("Sheet1").ListObjects(1).DataBodyRange.Columns(1) .Cells(1).Value = 1 .DataSeries End With End Sub ``` 難しく考えなくていいです。 テーブルにはオートフィルターは付き物なので、無視します。 表示されていようと非表示になっていようと、 セルは存在しているので。 「Sheet1シートの1つ目のテーブルのデータ範囲の1列目」に対して、 「1から始まる連続データ」を入れる命令をすればいいだけです。 詳しい解説が必要なら言ってください。 夜が遅いので、もう寝ます。 まぁ、本業が忙しいので次いつこの掲示板を見るかは約束できないので、 いつ返事ができるかわかりませんが、気長に待ってもらえると助かります。 ちなみにフィルターの解除は、 ``` Sub test2() Dim objTabl As ListObject Set objTabl = Worksheets("Sheet1").ListObjects(1) objTabl.Range.AutoFilter End Sub ``` こんな感じっぽいです。 変数を使ったり使わなかったりは、自分なりに意味があることですが、 興味があるなら聞いてください。 「objTabl.Range.AutoFilter」 「で、よさそう、」と、どうやって探るかも興味があれば聞いて下さい。 話し出すとかなり長い話になるので、今日はこれくらいで。。。 おお^; objTabl.Range.AutoFilter って命令すると、「▼」が消えますね^^; ま、なんとかなるか^^;;;; (汗っかきだな^^;)