2つの列をループして状態を確認する

列Pをループし、数値「1」を持つセルがあるかどうかを確認し、同時に列Nをループして、同じ行/列にも数値「1」があるかどうかを確認します。列Nに「1」がなく、同時に列Pに数字「1」がある場合、エラーメッセージが表示されます。

ここに私が始めたものがありますが、それほどうまく機能していないようです。

    For Each a In Range("p6:p40")
    If a.Value = "1" Then
        For Each c In Range("n6:n40")
            If c.Value = "" Then
            msgbox("check again")
            Else
            msgbox("check again")
            End If
        Next
    End If
Next

ループを通常のforループに変更できます。

For i = 6 To 40
    If Range("P" & i) = "1" Then
        If Range("N" & i) <> "1" Then
            MsgBox "P = 1 but N did not on row " & i
        End If
    Else

    End If
Next

列Pについて検査している同じ行の値をチェックする場合、列Nに別のループは必要ありません。この行に沿って試してください。

Sub test()

For Each a In Range("p6:p40")
    If a.Value = "1" Then
       If a.Offset(0, -2).Value = "" Then
           MsgBox ("blank in row " & a.Row)
       Else
           MsgBox ("not blank in row" & a.Row)
       End If
    End If
Next

End Sub

また、デバッグのヒントです。2つのIFブランチに2 つの異なるメッセージがある場合、非常に役立ちます。それ以外の場合、どのIFブランチがトリガーされたのかをどのようにして知るのですか？