引用数组（阵列中）

Question

什么我的子正试图做的事：
以阵列（例如（1〜100，1〜36），包含在一个数组的数组）
只有一些拿的列（例如，我只想要列2,5,7等）
将原始数组替换为仅包含那些列的原始数组（因此它将从（1到100,1到36）到例如（1到100 ，1至5））。
我这样做是通过将我想要的列复制到一个新数组，然后擦除原始数据并仅使用新信息重新创建它。

N.B.我所有的阵列灰色作为第一个变种dim arrVariable as Variant与arrVariable = Array() 我有阵列arrAggregatedArrays(1 to 8)的数组

我子的相关部分有云：

FilterSheetArrayForColumns (ArrAggregatedArrays(i)) 


Private Sub FilterSheetArrayForColumns(ByRef arrSource As Variant) 

'/====================================================================================================================================================== 
'/ Author: Zak Armstrong 
'/ Email: zak.armstrong@luminwealth.co.uk 
'/ Date: 12/August/2015 
'/ 
'/ Description: Takes Sheet arrays, finds the columns from the colAllHeadings, recreates the array with just that data (and empty columns for the ones not found) 
'/====================================================================================================================================================== 
Dim i           As Long 
Dim j           As Long 
Dim k           As Long 

Dim lngFinalRow         As Long 
Dim lngFinalColumn        As Long 

Dim arrTempArray        As Variant  '/ Temporarily holds the filtered information 
    arrTempArray = Array() 

Dim arrHeadingsRow        As Variant  '/ Holds the top (headings) row for application.match 
    arrHeadingsRow = Array() 

Dim varColumnPosition       As Variant  '/ Holds the position of the relevant column 

Dim strHeading         As String  '/ The current heading to search for 
'/====================================================================================================================================================== 

     AssignArrayBounds arrSource, UB1:=lngFinalRow, UB2:=lngFinalColumn 

    '/================================================== 
    '/ Recreate Headings Row 
    '/================================================== 
     ReDim arrHeadingsRow(1 To lngFinalColumn) 

     For i = 1 To lngFinalColumn 
      arrHeadingsRow(i) = arrSource(1, i) 
     Next i 

'/================================================== 
'/ Find Columns, put in array 
'/================================================== 
    ReDim arrTempArray(0 To lngFinalRow, 0 To ColAllHeadings.Count) 
    arrTempArray(0, 0) = arrSource(0, 0) 

    Dim lngDestinationColumn As Long 
    Dim lngSourceColumn As Long 

     For i = 1 To ColAllHeadings.Count 
      strHeading = ColAllHeadings(i) 
      varColumnPosition = Application.Match(strHeading, arrHeadingsRow, 0) 

       If IsError(varColumnPosition) _ 
        Then 
         MissingDataHeadingsHandler arrSource, strHeading 
        Else 
         lngDestinationColumn = i 
         lngSourceColumn = varColumnPosition 

         CopyArrayColumn2d arrSource, arrTempArray, lngSourceColumn, lngDestinationColumn 
       End If 
     Next i 

CopyArrayContents2d arrTempArray, arrSource 

End Sub 

但是，在这一分结束，arrAggregatedArrays(i)仍含有原始数组，而不是过滤的数组。

我想我的代码可能只是擦除引用数组，而不是数组本身。如果是这样的话，我该如何正确引用它？

如果情况并非如此，变量引用出错的地方在哪里？

Answer 1

我发现了这个问题。我用这种语法叫我子：

FilterSheetArrayForColumns (ArrAggregatedArrays(i)) 

当我应该一直在使用：

FilterSheetArrayForColumns ArrAggregatedArrays(i) 

在VBA中，只要您使用围绕一个变量括号，它迫使VBA对其进行评估。因此，在这种情况下，它不是通过变量arrAggregatedArrays（i），而是通过一个评估（实际上是一个本地副本）。

因此，子是在做它应该做的事情，而不是引用原来的变量，它只是改变本地副本，一旦子结束就消失，保持原有的不变。

Answer 2

功能FilterSheetArray（）不使用参数 “arrSource”

试试这个：

FilterSheetArray(arrAggregatedArrays(i)) 

Sub FilterSheetArray(ByRef arrSource as variant) 

    dim arrTemp as variant 

     arrTemp = arrSource  ' <---------------------- 

     '/ fill arrTemp with specific columns from arrSource 
     '/ Erase arrSource, ReDim and copy contents of arrTemp 

     arrSource = arrTemp 
End Sub 

，并确保在年底

分配 “arrTemp” 回 “arrSource” （或者只是使用“arrSource”并删除“arrTemp”）