VBAが想定と違う動きをします…

Question

下記コードで実行を行うと、

C62:D69のセルに1つでも空白がある場合　→　C70のセルに「2」と入力
C62:D69のセルが全て埋まっていたら（空白でない）　→　C70のセルに「1」と入力

という内容が実行される予定でしたが、
マクロの実行を行うとC70のセルにどの場合でも「2」と入ってしまいます。

Option Explicit

Sub test()
If WorksheetFunction.CountBlank(Range("C62:D69")) > 0 Then
Cells(70, 3).Value = "2"
End If

If WorksheetFunction.CountBlank(Range("C62:D69")) = 0 Then
Cells(70, 3).Value = "1"
End If

End Sub

何かお気づきのことがありましたら、
ご教示願います。

【追記】

Comments

[m.ts10806]

デバッグはされましたか？

[退会済みユーザー]

コメントありがとうございます。
デバッグを行ってみました。

If WorksheetFunction.CountBlank(Range("D62:E69")) > 0 Then
Cells(70, 4).Value = "2"
End If

上記を行うと予定では、
D62：E69に空白が1つでもあればD70に「2」と入力されるというコードを書いたつもりでした。
しかし空白が1つもなくてもこそコードを実行するとD70に「2」と入っていました。

[m.ts10806]

結果は質問本文に追記してください。
質問変更したり回答などがつくと質問一覧の「アクティブ」に上がってくるので投稿し直す必要はありません。

[mdj]

D62:D69は空欄に見えるのですが

[退会済みユーザー]

m.ts10806様
承知致しました、ご教示ありがとうございます。

mdj様
B62：B69の間違えでした、質問本文を訂正します。

[K_3578]

なぜ退会した？

Answer 1

こちらで、そのマクロを実行してみました。
D62:E69に全て数値を設定して実行すると、D70に１が設定されますよ。
マクロは正しく動作しています。
あなたが、D62:E69に全てブランク以外を設定し、２になった例を画像でアップしてください。

Comments

[退会済みユーザー]

ご検証までして頂きありがとうございます。
画像追記します。

[tatsu99]

あなたが提示した画像をみました。C62:D69が結合セルになっています。
結合セルは、その先頭のセルのみ値が設定されます。C62,C64,C66,C68のみ値が設定され、D62~D69は
空白になります。したがって、そのC62：D69に全て値を埋めても、D62~D69は必ず空白になるので、２が設定されます。

Answer 2

結合されたセルの特徴や動きなど理解されていないとマクロを組むことは難しいとおもいます
サンプルとして載せます

Sub Macro2()
      '前回のデータを削除する(結合されたセル)
        Range("C70:D71").ClearContents
        'セル範囲内の空白セルをカウントする
        '変数「空」に値を書き換える
              空 = WorksheetFunction.CountBlank(Range("C62:D69"))
          If 空 > 0 Then
          Cells(70, 3).Value = "2"
                MsgBox "セルの空白は" & 空 & "個です." & Chr(10) & "セル(""C70"")への表示は「２」です"
             ElseIf 空 = 0 Then
                 Cells(70, 3).Value = "1"
                MsgBox "セルの空白は" & 空 & "個です." & Chr(10) & "セル(""C70"")への表示は「1」です"
        
        End If
    End Sub

ｍｄｊ様とtatsu99様が説明した内容が図２です
ｍｄｊ様
「CountBlankは空白セル数をカウントします。これは結合セルも結合前のセルとしてカウントします。
よって、2セル(セル４つ)を結合した箇所に対しては「1セルはデータあり、1セル(セル３つ)はデータなし」と判定します。」
tatsu99様
「結合セルは、その先頭のセルのみ値が設定されます。C62,C64,C66,C68のみ値が設定され、D62~D69は
空白になります」


セル結合無しでのプログラムに挑戦してみては
それから　モニター画面半分をシート、もう半分をモジュール画面に設定して、一度モジュール画面を
クリックしてから[F8]キーを押しながら（黄色いカーソルが移動）変数の値が意とする値なのか確認
できます
[Windows]キー + [←]キー　もう半分は[Enter]キーで画面設定できます

Answer 3

質問文が「C列」のままですが、「B列」が対象であるとして。

MsgBox (WorksheetFunction.CountBlank(Range("B62:B69")))

画像の状態のExcelで上記処理を行うと「4」となります。
また「済」の文字を削除して処理を行うと「8」です。

CountBlankは空白セル数をカウントします。これは結合セルも結合前のセルとしてカウントします。
よって、2セルを結合した箇所に対しては「1セルはデータあり、1セルはデータなし」と判定します。