如何从一个子中保存数组以将其传递给另一个？

Question

例子：

Sub1 生成一个数组 Sub2 使用该数组

唯一有效的方法是在 Sub1() 中调用 Sub2(array as Variant)。我全局声明数组变量。

Dim arr1() As Variant
Sub aaa()


Dim col As Integer
Dim row As Integer

startingPoint = "B2"


col = Range(startingPoint).Column
row = Range(startingPoint).row

cols = Range(Cells(row, col), Cells(row, col).End(xlToRight)).Count
ReDim arr1(cols)

For myCounter = 1 To cols
    arr1(myCounter) = Cells(row, col + myCounter - 1).Value
Next

For myCounter = 1 To cols
    Cells(myCounter, 1).Value = arr1(myCounter)
Next

bbb (arr1)


End Sub

Sub bbb(arr1 As Variant)
Dim myCounter As Integer
For myCounter = 1 To 4
    Cells(myCounter, 1).Value = arr1(myCounter)
Next
End Sub

如果我不在 sub aaa 中调用 sub bbb，它甚至不允许我执行 sub bbb。它工作的唯一方法是上面的代码，但我不想每次需要调用 sub bbb 时都调用 sub aaa，我想保存 sub aaa 生成的数组并在其他 subs 中使用它而不再次调用它。谢谢

Answer 1

我想建议让 aaa 返回数组而不是使用公共变量。

Function aaa()




Dim col As Integer
Dim row As Integer

startingPoint = "B2"


col = Range(startingPoint).Column
row = Range(startingPoint).row

cols = Range(Cells(row, col), Cells(row, col).End(xlToRight)).Count
Dim arr1(cols) as Variant

For myCounter = 1 To cols
    arr1(myCounter) = Cells(row, col + myCounter - 1).Value
Next

For myCounter = 1 To cols
    Cells(myCounter, 1).Value = arr1(myCounter)
Next

aaa = arr1

End Function

Sub bbb()
   Dim arr1() as Variant 
   arr1 = aaa()

Dim myCounter As Integer
For myCounter = 1 To 4
    Cells(myCounter, 1).Value = arr1(myCounter)
Next
End Sub

Answer 2

为了能够独立调用第二个Sub，请不要使用参数。所以修改这两行代码：

1. 在aaa:

   bbb ' Call without argument
   

2. bbb的定义

   Sub bbb() ' No arguments