VBA迭代循环

Question

我需要突出显示每行中超过列AU中数值的单元格;那么为下一行做这个工作，但是我无法获得列AU的值是迭代的，意味着改变到下一行的值。

让我知道我在做什么错在这里。

Sub highlight() 
    Application.ScreenUpdating = False 

    Dim myRange As Range 
    Dim i As Long, j As Long 

    Set myRange = Range("F11:AP20") 
    For n = 11 To 20 
     For i = 1 To myRange.Rows.Count 
      For j = 1 To myRange.Columns.Count 
       If myRange.Cells(i, j).Value < Range(AUn).Value Then 
        myRange.Cells(i, j).Interior.Color = 65535 
       Else 
        myRange.Cells(i, j).Interior.ColorIndex = 2 
       End If 
      Next j 
     Next i 
    Next n 
End Sub 

Answer 1

1. 你有1个循环额外
2. AUn被当作空变量。我想你想在Col AU的相关行中工作。

这是你正在尝试？ （未经测试）

我评论的代码，以便让我知道，如果你还有任何疑问:)

Sub highlight() 
    Application.ScreenUpdating = False 

    Dim myRange As Range 
    Dim n As Long, j As Long 
    Dim ws As Worksheet 

    '~~> Change this to the relevant worksheet 
    Set ws = ThisWorkbook.Sheets("Sheet1") 

    With ws 
     '~~> Set your range 
     Set myRange = .Range("F11:AP20") 

     '~~> Loop through the rows (11 to 20 in this case) 
     For n = myRange.Row To (myRange.Row + myRange.Rows.Count - 1) 
      '~~> Loop through the columns (F to AP in this case) 
      For j = myRange.Column To (myRange.Column + myRange.Columns.Count - 1) 
       If .Cells(n, j).Value < .Range("AU" & n).Value Then 
        .Cells(n, j).Interior.Color = 65535 
       Else 
        .Cells(n, j).Interior.ColorIndex = 2 
       End If 
      Next j 
     Next n 
    End With 
End Sub