【VBA】複数条件のFor

Question

'列数をxに代入する
Dim x As Long

For x = 4 To 34
    If Cells(5, x).Value = "1" Or Cells(5, x).Value = "7" Then
        Cells(4, x).Font.Color = RGB(255, 0, 0)
        Cells(5, x).Font.Color = RGB(255, 0, 0)
    End If
Next

上記コードのxと、別の変数を用いて下記の作業を加えたいです。

'行数をyに代入する
Dim y As Long
    For y = 6 To 39
        If Cells(5, x).Value = "1" Or Cells(5, x).Value = "7" Then
        Cells(y, x).Interior.Color = RGB(192, 192, 192)
    End If
Next

yとxという複数の変数を用いて、ループ処理する方法を教えて下さい。

Answer 1

'列数をxに代入し、行数をyに代入する
Dim x As Long, y As Long

For x = 4 To 34
For y = 6 To 39
If Cells(5, x).Value = "1" Or Cells(5, x).Value = "7" Then
Cells(4, x).Font.Color = RGB(255, 0, 0)
Cells(5, x).Font.Color = RGB(255, 0, 0)
Cells(y, x).Interior.Color = RGB(192, 192, 192)
End If
Next
Next