小编Ray*_*ott的帖子

我不确定如何表达这个问题,但我遇到了一个问题,我需要将一组表中的名称列表加载到单独的数组中.

例如,Sheet 1,Column A有10名被装入array1,Sheet 2,Column A必须被加载到14名array2.

我知道这可以硬编码到一个宏来加载它们,但名称列表不是一个固定的长度和害羞的很多代码我想知道这是否可以缩短.

我的想法告诉我这样做的方式如下.

Dim tarray1 As Variant
Dim tarray2 As Variant
Dim tarray3 As Variant

For f = 1 To 3

    Sheets("Region " & f).Select
    With ActiveSheet
        lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
        tarray& f = ActiveSheet.Range("A2:A" & lastrow)
    End With


Next

有问题的实际工作表有10个单独的工作表,从1区到10区读取名称.因此将有10个单独的tarray.这样做是为了报告目的,并将在表格周围来回传递.

但是tarray & f显然无效并且会引发编译错误.

任何人都可以想办法解决这个问题吗？

希望有人能提供帮助.