【VBA】複数行削除はループではなくオートフィルタが最適！！

手動で行の削除がめんどくさい、他のツールとの連携で自動化したいなどあるかと思います。

VBA（Excelマクロ）を使用して、大量の表データから不要なデータを削除したい場合は、以前の私は1行1行削除するようにプログラムを作成していましたが、オートフィルタを使用して削除する方が処理が断然早いということに気づきましたので、オートフィルタを使用して行を削除する方法を紹介したいと思います。

もし、1行1行削除したい場合は、1行目からではなく最終行から削除することをお勧めします。
というのも、行を削除すると上に詰めるしかないのでズレていきます。

データの準備

既に試しで使用するデータがある方は、そのデータを使用していただければ良いです。

データがないという方向けに下記のプログラムを用意しましたので、実行していただければ、私が使用するデータと同じ下記の表が作成できます。

Sub テストデータ作成()

For i = 1 To 5
    '列名作成
    Cells(1, i) = i & "列目"
    
    '行データ作成
    For j = 2 To 6
        Cells(j, i) = "データ" & i & j
    Next j
Next i

End Sub

オートフィルタの方法

いきなりオートフィルタで複数行を削除する前に、まずはVBAでオートフィルタをする方法を例で紹介していきます。

オートフィルタ

（例１）表データの1列目（A列）が「データ13」を対象にオートフィルタした場合

Sub オートフィルタ()

  Range("A1").AutoFilter 1, "=" & "データ13"

End Sub

（例２）表データの2列目（B列）が「データ22以外」を対象にオートフィルタした場合

Sub オートフィルタ()

  Range("A1").AutoFilter 2, "<>" & "データ22"
  
End Sub

オートフィルタの解除

オートフィルタを解除したい場合は、下記のプログラムで解除出来ます。

先ほどのRange(“A1”)と同じ場所を指定してください。

Sub オートフィルタ解除()

  Range("A1").AutoFilter

End Sub

オートフィルタの解除は、オートフィルタを再度実行することで出来ます！！

オートフィルタで削除する方法

VBAでオートフィルタを実装する方法まで理解できたかと思いますので、オートフィルタで削除するやり方を紹介していきます。

Sub オートフィルタ削除()

Dim FRng
Dim FRngRow
  
'オートフィルタ
Range("A1").AutoFilter 2, "<>" & "データ22"

'表示されているデータの削除
Set FRng = ActiveSheet.AutoFilter.Range                      '範囲取得
FRngRow = FRng.Rows.Count                                    '行数を取得
Rows("2:" & FRngRow).SpecialCells(xlCellTypeVisible).Delete  '表示データを削除

'オートフィルタの解除
Range("A1").AutoFilter

End Sub

Rows(“2:” & FRngRow).SpecialCells(xlCellTypeVisible).Deleteの「2」を「3」に変更したら、3行目から削除できます。

'表示されているデータの削除
Set FRng = ActiveSheet.AutoFilter.Range                      '範囲取得
FRngRow = FRng.Rows.Count                                    '行数を取得
Rows("2:" & FRngRow).SpecialCells(xlCellTypeVisible).Delete  '表示データを削除

オートフィルタを使用することで簡単にデータを削除することが出来ます。

データを1行1行ループして削除する方法もありますが、1行目から削除するとズレますので、最終行から削除する必要があります。
また、処理速度もループよりオートフィルタの方が早いのでオートフィルタで削除することをお勧めします。