excel vba sub的参数是数组 如何传递

如果您要将数组作为参数传递给 Excel VBA 子程序，可以使用以下方法：

1. 将数组作为变量传递：将数组作为变量传递给子程序，然后在子程序中使用该变量。例如：

Sub MySub(myArray As Variant)
    '在这里使用 myArray
End Sub

Sub Test()
    Dim arr() As Integer
    ReDim arr(1 To 5)
    '填充 arr
    MySub arr
End Sub

2. 将数组作为参数数组传递：在调用子程序时，将数组作为参数数组传递。例如：

Sub MySub(ParamArray myArray() As Variant)
    '在这里使用 myArray
End Sub

Sub Test()
    Dim arr() As Integer
    ReDim arr(1 To 5)
    '填充 arr
    MySub arr
End Sub

无论您选择哪种方法，都可以将数组传递给 Excel VBA 子程序。

相关问题

vba数组写入excel

要将 VBA 中的数组写入 Excel，您可以按照以下步骤操作：

1. 首先，将数组的值存储在一个变量中。
2. 然后，使用“Range”对象指定要写入的单元格范围。
3. 最后，使用“Value”属性将数组值写入单元格。

以下是一个示例代码，将数组写入 Excel 中的单元格范围 A1:B3：

Sub WriteArrayToExcel()
    Dim myArray(1 To 3, 1 To 2) As Variant
    Dim i As Integer, j As Integer
    
    ' 填充数组
    myArray(1, 1) = "A"
    myArray(1, 2) = "B"
    myArray(2, 1) = "C"
    myArray(2, 2) = "D"
    myArray(3, 1) = "E"
    myArray(3, 2) = "F"
    
    ' 将数组写入 Excel
    For i = 1 To 3
        For j = 1 To 2
            Range("A" & i, "B" & i).Value = myArray
        Next j
    Next i
End Sub

请注意，此代码假定您要将数组写入 A1:B3 单元格范围中。如果您要将数组写入不同的单元格范围，请相应地更改代码中的 Range 对象。

VBA一维数组输出到excel

中应该怎么做？

您可以使用For循环遍历数组中的每个元素，并使用Cells函数将其输出到Excel中的指定单元格。例如，以下代码将一维数组arr输出到Excel的A1:A5单元格。

Sub arrayToExcel()
Dim arr(4) As Integer
arr(0) = 1
arr(1) = 2
arr(2) = 3
arr(3) = 4
arr(4) = 5

For i = 0 To UBound(arr)
Cells(i + 1, 1).Value = arr(i)
Next i
End Sub