回答編集履歴

1

説明追記

2023/03/24 01:45

投稿

hatena19
hatena19

スコア33620

test CHANGED
@@ -4,7 +4,9 @@
4
4
  lastrow = ws.Cells(1, 1).End(xlDown).Row
5
5
  ```
6
6
 
7
- ただ、それを取得して何をしたいのでしょうか。
7
+ ただ、それを取得して何をしたいのでしょうか。それを使ってやりたいことう提示されるたら、別案を提示できるかもしれません。
8
+
9
+ 例えば、
8
10
  フィルター後表示されている行になんからの操作をしたいというのが目的なら、SpecialCells(xlCellTypeVisible) で表示されている行範囲を取得してFor Each でループ処理すればいいでしょう。
9
11
 
10
12
  [Office TANAKA - Excel VBA Tips[オートフィルタ[絞り込んだ行を操作する]]](http://officetanaka.net/excel/vba/tips/tips155d.htm)