VBA B列の最初から最後までデータがないこと確認

質問

VBA　マクロにて

B列の１行目から最終行までデータがないことを確認する方法をお教えください

回答No.2

watabe007 · ベストアンサー

If Application.CountA(Columns(2)) = 0 Then
MsgBox "Ｂ列は空"
End If

お礼

お礼遅くなりました。
回答ありがとうございます。

回答No.3

Prome_Lin

私の経験から、仕事でお客さんからデータを預かると、よく、意味の無いことをしておられます。

例えば、今回のご質問の場合、意味も無くスペースが入っていたりするのです。

そこで、今のパソコンでしたら、時間はかかりませんから、すべてのセルを調べてはどうでしょう？

「Trim()」をして、文字列前後のスペースを取り除いています。

結果、スペースだけのセルも「空白」と判定します。

もし、何か文字（数値でも可）が入っていれば、最初に見つかった行を表示し、すべて「空」だった場合は、「Nothing」と表示します。

Sub Test()
Dim c As Integer
Dim i As Long
c = 0
For i = 1 To Rows.Count
If Trim(Cells(i, 2).Value) <> "" Then
c = 1
Exit For
End If
Next i
If c = 0 Then
MsgBox ("Nothing")
Else
MsgBox (i)
End If
End Sub

お礼

お礼遅くなりました。
回答ありがとうございます。

回答No.1

dogs_cats

If Application.CountA(Range("B:B")) = 0 Then
コード
else
コード
end if

elseが不要な削除

お礼

お礼遅くなりました。
回答ありがとうございます。