【ExcelVBA】数式が入っていないセルを見つける方法

Excelで数式が設定されている場合、誰かが間違って数式を消しているかもしれません。

今回は数式が入っていないセルを見つけてくれるVBAのプログラムをご紹介します。

ではいってみましょう。

手順①　プログラムを貼り付ける画面を表示
手順②　プログラムのコピー
実行結果
おわりに

手順①　プログラムを貼り付ける画面を表示

まずはこちらの記事の手順を実行して、プログラムを貼り付ける画面を表示します。

【ExcelVBA】プログラミングする方法

Excelには業務効率化のための強力プログラミング言語が搭載されています。この記事ではそのプログラミング言語を使用するための方法を分かりやすく丁寧にご紹介します。

手順②　プログラムのコピー

次にこのプログラムをコピーします。

Sub searchBlank()
    
    ' 最終行を取得する
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 最終列を取得する
    lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 行方向の繰り返し
    For i = 1 To lastrow
        ' 列方向の繰り返し
        For j = 1 To lastCol
            ' 数式が空白の場合
            If Cells(i, j).Formula = "" Then
                ' メッセージを表示
                MsgBox Cells(i, j).Address & "の数式が空白です。"
                
            End If
    
        Next
        
    Next
    
End Sub

Sub searchBlank()

' 最終行を取得する

lastrow = Cells(Rows.Count, 1).End(xlUp).Row

' 最終列を取得する

lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

' 行方向の繰り返し

For i = 1 To lastrow

' 列方向の繰り返し

For j = 1 To lastCol

' 数式が空白の場合

If Cells(i, j).Formula = "" Then

' メッセージを表示

MsgBox Cells(i, j).Address & "の数式が空白です。"

End If

End Sub

解説

‘ 最終行を取得する
lastrow = Cells(Rows.Count, 1).End(xlUp).Row

‘ 最終列を取得する
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column

まずはデータが入っているセルの最終行と最終列を取得しています。

Cells(Rows.Count, 1).End(xlUp).Row はExcelシートの一番下の行（Rows.Count = 1,048,576行目）からCtrl + 上キーを押した状態（ End(xlUp) ）の行番号（ .Row ）という意味です。

lastCol = Cells(1, Columns.Count).End(xlToLeft).ColumnはExcelシートの一番右の行（Columns.Count = XDF列目）からCtrl + 左キーを押した状態（ End(xlToLeft) ）の列番号（ .Column ）という意味です。