使用中のセル範囲に空白があるか取得するには？

質問

For Each r In ActiveSheet.UsedRange.SpecialCells(xlCellTypeBlanks)
’空白セルに対して処理を行なう
Next r

このようなコードの場合、使用中のセル範囲に空白がないとエラーになるので、
ループに入る前に、空白セルがあるかを取得したいのですが、
どういう方法があるのでしょうか？

回答No.2

keithin · ベストアンサー

方法１）
on error resume next
for each r in …specialcells(xlcelltypeblanks)
’処理
next

方法２）
dim Target as range
set target = activesheet.usedrange
if application.counta(target) <> target.count then
for each r in target.specialcells(xlcelltypeblanks)
’処理
next
end if

言わずもがなですが、「空っぽのセル」と「数式等で=""が計算/記入されているセル」とを識別できなければなりません。

お礼

ありがとうございます。

回答No.1

tom04

こんばんは！

コードではそれぞれのセルをループするようにしているので

＞SpecialCells(xlCellTypeBlanks)
の部分を削除し

For Each r In ActiveSheet.UsedRange
If r <> "" Then
"処理"
End If
Next c

のようにしてみてはどうでしょうか？

単に空白セルがあるかどうか？だけであれば

For Each r In ActiveSheet.UsedRange
If r = "" Then
MsgBox "空白セルあり"
Exit For
End If
Next c

みたいな感じで・・・m(_ _)m
m(_ _)m

お礼

ありがとうございます。