標準モジュールマクロ動作について
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
お礼
有難う御座います。 お掛けで助かりました。