通过不同纸张的单元格填充数组

Question

我在VBA中有一个初学者问题。我试图通过位于12张不同纸张的电话号码来制作一个循环来填充阵列。当我执行波纹管代码时，它只存储第一张纸的值。

   For J = 1 To 12

   For i = i To UBound(ArrayPhone)

     ArrayPhone(i) = Range("P" & i + 2).Value

    Next

Worksheets(ActiveSheet.Index + 1).Select

Next

我可以防止在数组中存储空值。

对于我做错的任何线索，我都会很高兴。

Answer 1

您总是从每个工作表的位置i = 1开始写入数组。这意味着你的外循环遍历工作表是没用的。

您需要适当调整数组的大小以容纳所有工作表中的所有数字，然后添加一个计数器，该计数器计算您已经放入数组的项目数。