我需要循环遍历24列，并使用countif对6个不同的条件使用另一个工作表上6个不同单元格中的值

Sub CalculateValues()
    Dim conditionSheet As Worksheet
    Dim calculationSheet As Worksheet
    Dim conditionRange As Range
    Dim calculationRange As Range
    Dim resultCell As Range
    Dim i As Integer
    
    ' 设置条件工作表和计算工作表
    Set conditionSheet = ThisWorkbook.Worksheets("条件工作表")
    Set calculationSheet = ThisWorkbook.Worksheets("计算工作表")
    
    ' 设置条件范围和计算范围
    Set conditionRange = conditionSheet.Range("A1:F1")
    Set calculationRange = calculationSheet.Range("B1:B100")
    
    ' 遍历24列
    For i = 1 To 24
        ' 设置结果单元格
        Set resultCell = calculationSheet.Cells(1, i + 2)
        
        ' 使用COUNTIF函数计算满足条件的单元格数量
        resultCell.Value = Application.WorksheetFunction.CountIf(conditionRange, calculationRange)
    Next i
End Sub