excel - 如何正确使用 For Loop 处理多个条件

Question

我在下面有以下循环:

With Sheets("Sheet Name")
    For i = 2 To 26
        .Cells(11, i).Formula = Application.WorksheetFunction.CountIfs(Sheets("Sheet1").Range("F8:F" & n), Sheets("Sheet2").Range(Chr(64 + i) & "8"), Sheets("Sheet1").Range("AC8:AC" & n), "S")
        .Cells(12, i).Formula = Application.WorksheetFunction.CountIfs(Sheets("Sheet1").Range("F8:F" & n), Sheets("Sheet2").Range(Chr(64 + i) & "8"), Sheets("Sheet1").Range("AC8:AC" & n), "YS")            
    Next i
End With

每行末尾的最后一个条件由一个字符串更改，即“S”、“YS”。我想避免必须为每个“S”和“YS”使用 1 行等等，即每个标准会有很多行。然后我还想添加另一个处理行的 for 循环

Answer 1

codes = Array("S", "YS")
For i = 2 To 26
    For j = 0 to UBound(codes)
        Sheets("Sheet Name").Cells(11+j, i).Formula = Application.WorksheetFunction.CountIfs(Sheets("Sheet1").Range("F8:F" & n), Sheets("Sheet2").Range(Chr(64 + i) & "8"), Sheets("Sheet1").Range("AC8:AC" & n), codes(j))
    Next j
Next i