【Excel】【VBA】オートフィルターしている時に可視セルだけを移動する

おはようございます。こんにちは。こんばんは。

とりにくVBAです。

最近はVBA100本ノックを終えて、実務でもVBAをいじりまくっています。

先日、オートフィルターをしている時にOffsetを使用してセルの移動をしてみたら、非表示セルに移動してしまいました。

その解決方法について解説します。

今回使用するサンプルはこちらです。

グループAで絞り込むと次のようになります。

ここで普通にOffsetしてしまうと、

非表示セルに移動してしまいます。

Web検索してみたらば、次のようなコードがありました。

なるほど、可視セルにあたるまでループを回すのかと。

実際に使ってみるとうまくいきました！

なぜこのような処理をしたかったかというと、絞り込んだ行のある列に対してリスト入力をするようなユーザーフォームを作っていたからです。

次のようなイメージです。

入力作業がめちゃくちゃ捗りました。