我需要循环浏览24列，并在另一个工作表的6个不同单元格中使用countif作为6个不同标准的值

Question

我需要循环遍历24列，并使用countif来处理另一个工作表上6个不同单元格中的值的6个不同条件。这是我最大的工作表，但我总共有479列要浏览，还有6个不同的工作表来显示我的结果。

我的代码非常基础。这会在1列中检查我的值，但我必须重复它，并更改结果的范围，并更改查找下一列的范围，所以我重复代码24次。我想为结果选择起始单元格，只选择列，因为每一张工作表的行都保持不变。

这是我的示例

Toit1.Select
Sheet1.Range("C6") = Toit1.Application.WorksheetFunction.CountIf(Range("H8:H69"), "=S")
Sheet1.Range("C7") = Toit1.Application.WorksheetFunction.CountIf(Range("H8:H69"), "=E-S")

下一个

Sheet1.Range("D6") = Toit1.Application.WorksheetFunction.CountIf(Range("I8:I69"), "=S")
Sheet1.Range("D7") = Toit1.Application.WorksheetFunction.CountIf(Range("I8:I69"), "=E-S")

Answer 1

也许这有助于在连续列中迭代：

Sub Test()
Dim iChar As Integer, i, j, a
Toit1.Select
a = 72                  'colums searching in; 72 == H
For iChar = 67 To 68    'cells to fill in value (65 ==  A, 66 == B, ...)
i = Chr(iChar)
j = Chr(a)
Sheet1.Range(i & "6") = Toit1.Application.WorksheetFunction.CountIf(Range(i & "8:" & i & "69"), "=S")
Sheet1.Range(i & "7") = Toit1.Application.WorksheetFunction.CountIf(Range(j & "8:" & j & "69"), "=E-S")
a = a + 1
Next iChar
End Sub