vba 中大量变量的简化编码

Question

我有 100 个盒子，（box1、box2 等）每个盒子有 100 行值。 （0,1,2等）所以我总共有10,000行数据。我正在计算每个框中具有特定值的单元格数。我设置范围是因为我可以更改 countif 值，例如值为 2、3 等的单元格数。

但是，要做到这一点，我必须将盒子变暗 100 次并设置 box= 100 次。有没有办法简化这个？每个盒子总是有 100 行，盒子的总数总是 100。

Dim box1 As Range
Dim box2 As Range
Dim box 3 As Range
.....

Set box1 = Range("A1:A100")
Set box2 = Range("A101:200")
Set box3 = Range("A201:300")
.....

Range("C1").formula = "=COUNTIF(box1, "1")"
Range("C2").formula = "=COUNTIF(box2, "1")"
.....

Answer 1

这应该会让你朝着正确的方向开始：

Sub tgr()

    Dim box(1 To 100) As Range
    Dim i As Long

    For i = 1 To UBound(box)
        Set box(i) = Cells(100 * (i - 1) + 1, "A").Resize(100)
        Cells(i, "C").Formula = "=COUNTIF(" & box(i).Address & ",""1"")"
    Next i

End Sub