VBAでセルが空白なら〇〇する方法を紹介【コピペ用コード掲載】

セルが空白なら○○という処理をしたい

このような問題をVBAで解決する方法をご紹介します。

この記事では、仕事でよく利用される代表的な3つの事例を参考に「セルが空白なら〇〇という処理をする」VBAの導入方法を解説しています。

３つのサンプル事例がこちら

セルが空白なら背景色を赤にする
セルが空白なら空白セルをカウントする
セルが空白なら別シートのテキスト編集する

これらの事例は実際の業務に導入実績があるもので、エクセルを使ってデータ管理や書類整理、スケジュール管理などを行っている方にかなりおすすめです。

事例の解説ではコピペで使えるサンプルコードや実際にVBAを設定する画面を使ってVBA導入方法を紹介しているので、

VBA初心者だけど「セルが空白なら〇〇という処理をするVBA」を導入したい！なんとしてもエクセル業務の効率をアップさせたい！

と考えている方は是非チェックしてください

1 セルが空白なら〇〇する処理を自動化するVBAとは？
2 セルが空白なら〇〇するVBAの作り方と導入方法
3 VBA未経験者が業務内容に合わせた「セルが空白なら〇〇するVBA」を導入する方法

セルが空白なら〇〇する処理を自動化するVBAとは？

「セルが空白なら〇〇する」という処理は、

関数IFや繰り返し処理(For～Next)を利用して一覧表で空白のセルを検索し該当したとき好きな処理を行う

というプログラムです。

一覧表の最終行や最終列が変動しても自動的に検索範囲を調整することができるので、データ管理やデータ分析、資料作成業務に最適です。

具体的にどのような処理を自動化できるのか！を3つのサンプル事例を使ってご紹介します。

セルが空白なら背景色を赤にするマクロ

一覧表の行数、列数は変動しても問題ありません。

実行ボタンを押下した結果がこちら

空白セルの背景色を一瞬で赤に塗りつぶすことができました。

ガッツポーズの人

記入漏れの防止に使えます

空白セル数をカウントするマクロ

実行ボタンを押下した結果がこちら

空白セルの集計マクロはいろんな業務で応用できるので下記で紹介している導入方法をマスターしてみてください。

セルが空白の場合、別シートのテキストを転記する

実行ボタンを押下した結果がこちら

これら3つのサンプル事例を導入できるだけでエクセル業務の効率を格段にアップさせることができます。

セルが空白なら○○する処理ができれば便利なのになぁと考えたことがある方は下記でVBAの導入方法を紹介しているので参考にしてみてください。

セルが空白なら〇〇するVBAの作り方と導入方法

セルが空白なら○○するVBAは関数 IFとFor ～next(繰り返し処理)の組み合わせで作ることができます。

基本構造はこちら

For i = 1 To 10

IF Cells(i,1)="" Then

Cells(i,1).Interior.Color = RGB(255, 0, 0)

Else

EndIf

上記基本コードは、

A列の1行目から10行目までの空白セルを赤に塗りつぶす

というプログラムです。

この基本コードをベースに業務内容に合わせたプログラムを入力していくと「セルが空白なら〇〇するVBA」をスムーズに開発できるようになります。

続いて、VBAの導入方法を3つのサンプル事例を使って具体的に解説していきます。

セルが空白なら背景色を赤に塗りつぶすマクロの導入方法

1.VBA編集画面を開く

2.標準モジュールを作成する

3.標準モジュールにVBAを記入する

4.サンプルコード

Sub 背景色を赤にする()
    Dim i, j As Long
    g = Cells(Rows.Count, 3).End(xlUp).Row
    r = Cells(3, Columns.Count).End(xlToLeft).Column
    For i = 3 To g
    For j = 3 To r
    If Cells(i, j) = "" Then
    Cells(i, j).Interior.Color = RGB(255, 0, 0)
    Else
    End If
    Next
    Next
End Sub

5.ボタンの作成

6.作成したボタンにマクロを登録

これで「セルが空白なら背景色を赤にするVBA」を導入することができます。

セルが空白なら空白セルをカウントする

1.VBA編集画面を開く

2.標準モジュールを作成する

3.標準モジュールにVBAを記入する

4.サンプルコード

Sub 空白セル数をカウントする()
    Dim i, j As Long
    g = Cells(Rows.Count, 3).End(xlUp).Row
    r = Cells(3, Columns.Count).End(xlToLeft).Column
    Cells(g + 1, r) = WorksheetFunction.CountIf(Range(Cells(4, 4), Cells(g, r)), "")
    Cells(g + 1, r - 1) = "合計"
End Sub

5.ボタンの作成

6.作成したボタンにマクロを登録

セルが空白なら別シートのテキスト編集する

1.VBA編集画面を開く

2.標準モジュールを作成する

3.標準モジュールにVBAを記入する

4.サンプルコード

Sub 別シートのテキストを転記する()
    Dim Ash As Worksheet
    Dim Bsh As Worksheet
    Set Ash = ThisWorkbook.Worksheets("別シートのテキストを転記する")
    Set Bsh = ThisWorkbook.Worksheets("背景色を赤にする")
    Dim i, j As Long
    g = Ash.Cells(Rows.Count, 3).End(xlUp).Row
    r = Ash.Cells(3, Columns.Count).End(xlToLeft).Column
    For i = 3 To g
    For j = 3 To r
    If Ash.Cells(i, j) = "" And Bsh.Cells(i, j) <> "" Then
    Ash.Cells(i, j) = Bsh.Cells(i, j)
    Else
    End If
    Next
    Next
End Sub

5.ボタンの作成

6.作成したボタンにマクロを登録