空白セルを正しく判定する方法2

公開日：2017-05-06　最終更新日：2021-03-06

空白セルを正しく判定する方法2

空白セルの判定について、いろいろな方から意見を頂きました。

やはり、空白判定は奥が深く結構難しいものとなっています。

ここでは、各プロパティや関数が、セルの状態によって返す値を再確認してみます。

元記事は、
空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）

・セルの値が空白の判定・計算式が入っていない判定・エラー値の判定・IsEmpty関数：空白を判定するVBA関数・TypeName関数：データ型を判定するVBA関数・RangeオブジェクトのFormulaプロパティ・空白セルを正しく判定する方法続編

上記の記事では、


  
    
      If Not IsError(Cells(i, 1)) Then

      　　If Not Cells(i, 1).HasFormula Then

      　　　　If Cells(i, 1) = "" Then

      　　　　　　'空白

      　　　　End If

      　　End If

      End If

上記コードを一応の結論として提示しました。
しかしそれなら、
If IsEmpty(Cells(i, 1)) Then
これで良いのではないかと思われますが、
計算結果が空白("")を値貼り付けした場合に、IsEmptyはFalseを返します。
Excelの機能のジャンプでも、「空白セル」として判定されません。

ジャンプ機能のVBAは、
SpecialCells(xlCellTypeBlanks)
これで取得されるものは、IsEmptyでTrueと判定されるものと同一となります。

さらに、それなら、
Cells(i, 1).Formula = ""
これで判定できるのではないかという事になりました。

以下の表で、
Range
と表記しているものは、セルであるRangeオブジェクトになります。
実際には、Cells(i, 1)等々の記述に置き換えてお読みください。

セルの内容	セル表示状態	Range = ""	Len(Range) = 0	Range. HasFormula	IsError (Range)	IsEmpty (Range)	Range = Empty	TypeName (Range)	Range. Formula = ""
値として"ABC"	ABC	FALSE	FALSE	FALSE	FALSE	FALSE	FALSE	String	FALSE
何も入れていない		TRUE	TRUE	FALSE	FALSE	TRUE	TRUE	Emprt	TRUE
=1/0	#DIV/0!	型が一致しません。	型が一致しません。	TRUE	TRUE	FALSE	型が一致しません。	Error	FALSE
B4セルを値貼り付け	#DIV/0!	型が一致しません。	型が一致しません。	FALSE	TRUE	FALSE	型が一致しません。	Error	FALSE
=""		TRUE	TRUE	TRUE	FALSE	FALSE	TRUE	String	FALSE
B6セルを値貼り付け		TRUE	TRUE	FALSE	FALSE	FALSE	TRUE	String	TRUE

空白と判定したいセルの状態によります。
B3セルは、これは空白に間違いはない。
しかし、B6セルとB7セルについては、何をしたいのかによって、
空白として扱うかどうかが変わってくると思います。

元記事の、
空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）

こちらと合わせて、実現したい内容にあったプロパティと関数を組み合わせて使用してください。

同じテーマ「マクロVBA技術解説」の記事

セルの値について（Value,Value2,Text）
Excelのバージョンを判断して「名前を付けて保存」
空白セルを正しく判定する方法（IsEmpty,IsError,HasFormula）
空白セルを正しく判定する方法2
Rangeオブジェクト.Valueの省略について
 シート保護でユーザー操作を制限する
 シートに数式を設定する時のセル参照の指定方法
 標準モジュールとシートモジュールの違い
 オートフィルタ（AutoFilter）の使い方まとめ
 複雑な条件（複数除外等）のオートフィルター（AutoFilter）
クリップボードを使わないセルのCopy

アクセスランキング・・・ランキング一覧を見る

1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
8.マクロとは？VBAとは？VBAでできること｜VBA入門
9.セルのクリア（Clear,ClearContents）｜VBA入門
10.メッセージボックス(MsgBox関数)｜VBA入門

ホーム
マクロVBA応用編
マクロVBA技術解説
空白セルを正しく判定する方法2

このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。

記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
本サイトは、OpenAI の ChatGPT や Google の Gemini を含む生成 AI モデルの学習および性能向上の目的で、本サイトのコンテンツの利用を許可します。
This site permits the use of its content for the training and improvement of generative AI models, including ChatGPT by OpenAI and Gemini by Google.

VBA技術解説
空白セルを正しく判定する方法2