【VBA】空白セルを確認メッセージ無しで抽出する方法

日々の業務で大量のデータを扱っていると、特定の条件に該当するセルだけを抜き出す必要が出てきます。特に空白セルのみを抽出したい場合、手作業では時間がかかります。この記事では、VBAを使用して空白セルのみを抽出し、確認メッセージなしでスムーズな業務フローを作成します。

サンプルコード

VBA

Option Explicit
Sub ExtractBlankCells()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' データの最終行を取得
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    
    ' 空白セルを抽出する列の範囲を指定（ここではA列）
    Dim rng As Range
    Set rng = ws.Range("A1:A" & lastRow)
    
    ' 新しいシートを作成して結果を出力
    Dim newWs As Worksheet
    Set newWs = ThisWorkbook.Sheets.Add(Before:=ws)
    newWs.Name = "BlankCells"
    
    ' 空白セルの抽出処理
    Dim i As Long
    For i = 1 To lastRow
        If IsEmpty(rng.Cells(i, 1)) Then
            rng.Cells(i, 1).Copy Destination:=newWs.Range("A" & newWs.Rows.Count - newWs.Rows.Count + 1)
        End If
    Next i
    
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

よくある質問

Q 元に戻せますか？

VBAの実行結果は「元に戻す」が効きません。必ずバックアップを取ってから実行してください。

Q エラーが出たら？

シート名や列番号が正しいか確認してください。