ホーム / Excel /

本日使ったVBA（オートフィルタをかけ、非表示分の行を削除する）

2025年5月27日火曜日

本日使用したVBAのメモ

オートフィルタをかけた後に、必要ない行を消したいときがありませんか？

今回は、非表示になっている行をさくっと削除しました。

残りはフィルタで選択した行だけになりました(*^^)v

これがないと、これじゃないレコードを表示して、

削除して、改めて選び直して。とめんどくさい作業が必要ですね。

VBAは以下。

For r = 最終行 To 2 STEP -1

If Worksheets("A").Rows(r).Hidden Then

Worksheets("A").Rows(r).Delete

End If

Next r

最終行から上に向けて、非表示の行だったら削除

ただ、これだけです(^^♪

チリツモ効率化です！！

テンワンナップ（0.1Up）で生産性向上