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

最終更新日：2018-08-15

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

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

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

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

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

空白セルの判定はVBAにおいては度々発生しますが正しく空白セルを判定する事は以外と難しいものです。以下A1セルが空白かどうか判定する方法をいくつか紹介します。IfCells(1,1)=__Then '空白 EndIf またはIfLen(Cells(i,1))=0Then'空白 EndIf 普通に

上記の記事では、

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と判定されるものと同一となります。

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

	A	B	C	D	E	F	G	H	I
1	セルの内容	セル表示状態	Range = ""	Len(Range) = 0	Range. HasFormula	IsError (Range)	IsEmpty (Range)	Range = Empty	Range. Formula = ""
2	値として"ABC"	ABC	FALSE	FALSE	FALSE	FALSE	FALSE	FALSE	FALSE
3	何も入れていない		TRUE	FALSE	FALSE	FALSE	TRUE	TRUE	TRUE
4	=1/0	#DIV/0!	型が一致しません。	型が一致しません。	TRUE	TRUE	FALSE	型が一致しません。	FALSE
5	B4セルを値貼り付け	#DIV/0!	型が一致しません。	型が一致しません。	FALSE	TRUE	FALSE	型が一致しません。	FALSE
6	=""		TRUE	FALSE	TRUE	FALSE	FALSE	TRUE	FALSE
7	B6セルを値貼り付け		TRUE	FALSE	FALSE	FALSE	FALSE	TRUE	TRUE