標準モジュールマクロ動作について

質問

office2010

excelのマクロにて、標準モジュールにて一括の場合と、分割されている場合で動作結果が変わります。
その原因が分からないので教えて頂きたく。
Ａ２セルからＲ６セルまで、文字列データが入っています。
Ｄ列、Ｆ列のみ、不特定行が空欄ありです。
Ｄ列を検索し、○があったら、行ごと削除します。
Ｃ列の最終セルから２行上、１列右のセルを参照し、空欄だったら、Ａ空欄あり
のメッセージ表示
Ｅ列の最終セルから２行上、１列右のセルを参照し、空欄だったら、Ｂ空欄あり
のメッセージ表示

マクロ実行前のデータで
Ｄ２セルが○、Ｄ３セルが○、
Ｄ４セルが空欄
Ｆ４セルが何かしらの文字列あり
でマクロを実行させると、
Ｄ２セルは空欄、
Ｄ４セルが何かしらの文字列あり
になります。
メッセージは、Ａ空欄あり
のみとなるはずなのですが、

（１）の場合、Ａ空欄あり、Ｂ空欄あり
と誤りになります。
（２）だとＡ空欄ありのみ表示されます。
何がおかしいのでしょうか？
なお、（１）を２回マクロ実行させると、２回目は、Ａ空欄ありのみ表示です

（１）標準モジュール一括の場合
Sub SAKUJO()

'D列で○の非稼働日行を削除

Dim lastRow, r As Long
Dim v As Variant

'Ｃ列最終行の取得
lastRow = Cells(Rows.Count, 3).End(xlUp).Row

'D列を検索し、非稼働日（○）は行で削除

For Each v In Array("○")
For r = lastRow To 2 Step -1 'POINT!最終行から2行目へ
If InStr(Cells(r, 4).Value, v) <> 0 Then '指定セルの値が配列内のワードを含むかどうか
Rows(r).Delete '含む場合は行を削除
End If
Next r
Next v
'非稼働日を除き、今日から２日前が空欄だったら、メッセージ表示
If Cells(lastRow, 3).Offset(-2, 1) = "" Then
MsgBox "Ａ空欄あり"
Else
End If

If Cells(lastRow, 5).Offset(-2, 1) = "" Then
MsgBox "Ｂ空欄あり"
Else
End If

End Sub

（２）標準モジュール分割の場合
Sub SAKUJO()

'D列で○の非稼働日行を削除

Dim lastRow, r As Long
Dim v As Variant

'Ｃ列最終行の取得
lastRow = Cells(Rows.Count, 3).End(xlUp).Row

'D列を検索し、非稼働日（○）は行で削除

For Each v In Array("○")
For r = lastRow To 2 Step -1 'POINT!最終行から2行目へ
If InStr(Cells(r, 4).Value, v) <> 0 Then '指定セルの値が配列内のワードを含むかどうか
Rows(r).Delete '含む場合は行を削除
End If
Next r
Next v

test
End Sub
Sub test()
'非稼働日を除き、今日から２日前が空欄だったら、メッセージ表示

Dim lastRow

' Ｃ列の最終行取得
　 lastRow = Cells(Rows.Count, 3).End(xlUp).Row
If Cells(lastRow, 3).Offset(-2, 1) = "" Then
MsgBox "Ａ空欄あり"
Else
End If

If Cells(lastRow, 5).Offset(-2, 1) = "" Then
MsgBox "Ｂ空欄あり"
Else
End If

End Sub

回答No.1

f272 · ベストアンサー

(2)ではtestに入ったところでもう一度
lastRow = Cells(Rows.Count, 3).End(xlUp).Row
を実行してlastRowを更新しているが，(1)ではそうしていない。

お礼

ありがとうございます。

単なる変数の宣言だけだと思い込んでしました。
最終行が変わるから、必要ですね。
すっきりしました（*^_^*）