【Excel VBA 2010】空白セルの検索

質問

ある範囲の中から書式設定も文字も入っていないセルを選んできて、
それらには何も入力がされていないという警告を出そうと考えています。

Dim k As Integer
Dim msg As String
Dim 空欄() As Variant

k = 0
msg = " "

For i = 1 To 10
For j = 1 To 10

If Cells(i , j) = Cells(i , j).SpecialCells(xlCellTypeBlanks) Then
ReDim Preserve 空欄(k) As Variant
空欄(k) = Cells(i , j).Address
k = k + 1
End If

Next
Next

If 空欄(k) <> " " Then

For i = 0 To k - 1
msg = 空欄(i) & vbCrLf
Next

MsgBox (msg & "が入力されていません。")

Else

・
・
・

と続くのですが、上記のコードでエラー(型が一致しない)が起きます。
素人のため原因がわからないので、どなたか修正をお願いいたします。

回答No.1

mu2011

>SpecialCells(xlCellTypeBlanks)
　⇒このコードでは空白がないと実行エラーになります。
　　又、空欄と"　"（スペース文字）では意味合いが相違しませんか。

一例です。
Dim r As Range
Dim msg As String
On Error GoTo ex
For Each r In Range("a1:j10").SpecialCells(xlCellTypeBlanks)
msg = msg & r.Address & vbCrLf
Next
MsgBox (msg & "が入力されていません。")
ex: