excel 2010 vba循环通过声明的变量语法导致未定义编译错误变量

我声明了5个整数

    Public Hol_1 as integer
    Public Hol_2 as integer
    Public Hol_3 as integer
    Public Hol_4 as integer
    Public Hol_5 as integer

假设我有3个客户机，那么我将使用holu 1到holu 3。这也意味着：iClients=3 我需要做的第一件事是查看我的工作表（“假期”），以确定我的3位客户每人有多少假期

    Sub CountHolidays()

    Dim i as integer
    Dim iclients as integer
    iclients = 3
    For i=1 to iclients 
        Hol_i = WorksheetFunction.CountA(ActiveWorkbook.Sheets("Holidays").Range(Cells(2, 3 + i), Cells(50, 3 + i))) 
       'The worksheetfunction calculates the amount of Holiday-dates I have for each of my three clients
    Next i
    End sub

---

我得到一个编译错误，说变量未定义：Hol_I未定义。我尝试了“Hol_u2;”&我和其他人，但没能纠正这个问题。有人有主意吗？THX

您不能连接变量名

holu i

是与

holu 1

完全独立的变量，即使

i=1

您需要一个数组来执行此操作：

Dim Hol(5) as Integer

For i=1 to iclients 
  Hol(i) = WorksheetFunction.CountA(ActiveWorkbook.Sheets("Holidays").Range(Cells(2, 3 + i), Cells(50, 3 + i)))
Next i

---

不能连接变量名

holu i

是与

holu 1

完全独立的变量，即使

i=1

您需要一个数组来执行此操作：

Dim Hol(5) as Integer

For i=1 to iclients 
  Hol(i) = WorksheetFunction.CountA(ActiveWorkbook.Sheets("Holidays").Range(Cells(2, 3 + i), Cells(50, 3 + i)))
Next i