Range("A1:A10")について

質問

初歩的な質問です。
セルA1～A10までヌルを判断する場合
IF　A1 <> "" And　A2　<> "" And A3 <> "" And A3 <> "" And A4 <> "" And A5 <> "" ・・・・・・Then
と記載になりますがこれをもっと簡素化するコードはないでしょうか
Range("A1:A10")を使ってできないでしょうか
よろしくお願いします。

回答No.3

KURUMITO · ベストアンサー

例えば次のようにすればよいでしょう。

If WorksheetFunction.CountBlank(Range("A1:A10")) = 10 Then
Range("B1") = 1
End If

お礼

ありがとうございます
Blankをカウントして１０Blankですという意味ですか
Orだとどうなるのでうすかね
私がしたいことはこれでバッチリです使わせてもらいます。

回答No.2

okormazd

すなおには、

For Each c In Range("A1:A10")
If c.Value <> "" Then
MsgBox "データあり"
Exit For
End If
Next

だろうが、

If Application.WorksheetFunction.CountA(Range("A1:A10")) > 0 Then
MsgBox "データあり"
End If

にでもするか。

お礼

ありがとうございます
これもOKですね　使わせてもらいます

回答No.1

edomin7777

未検証ですが、

Application.WorksheetFunction.CountIf(.Range("A1:A10"),"<>0")

とかで、判定できませんか？

お礼

ありがとうございました。