嵌套用于引用表的循环的Excel VBA构造

Question

我有两个由一些数据（没有相同结构）构成的数据透视表，我需要使用其他一些表的笛卡尔积来比较每个条目。

我想在VBA中嵌套一些for循环，这些循环基于我构建的一些列表从数据透视表中获取数据。

我的清单：

+------+-----+
| Date | ID  |
+------+-----+
| 9/1  | 123 |
| 9/2  | 124 |
| 9/3  | 200 |
| 9/4  | 201 |
|      | 202 |
|      | 300 |
|      | 500 |
|      | 999 |
+------+-----+

我不知道如何引用这些列表中的每一列中的每个条目以在命令中使用它们。 我想到的是以下内容：

for each day in Date:
  for each num in ID:
    do_pivot_fetch(from pivot1, date=day, ID=num)

Answer 1

如果这些列表是在Excel中维护的（这就是我总是写这些东西的方式，那么在需要时可以轻松更改参数），我通常使用do ... while对其进行迭代。 您还可以尝试在每一行中找到最后一个填充的单元格，并使用它来计算for循环的范围，但是鉴于人们喜欢使用excel电子表格进行的操作，我发现这是一个小问题。

假设您在工作表“ Params”上的A（日期）和B（ID）列中都有列表。 假设您在第1行有标题，并且在每个列表的最后一个值之后有一个空行。 然后您的代码将如下所示：

Sub useParams()
Dim Date_val, ID_val As Range
With ThisWorkbook.Worksheets("Params")
    Set Date_val = Range("A2")
    Do While Date_val.Value <> ""
        Set ID_val = Range("B2")
            Do While ID_val.Value <> ""
               //do_pivot_fetch(from pivot1, date=Date_val.Value, ID=ID_val.Value)
               Set ID_val = ID_val.Offset(1, 0)
            Loop
        Set Dateval = Date_val.Offset(1, 0)
   Loop
End With
End Sub