使用VBA处理数组的几个简单示例
Loading ...本文介绍了使用VBA处理数组的几个简单示例。您可以对这些示例进行调整和充实，以满足实际需要。
填充数组并将其数据复制到工作表
Sub Sheet_Fill_Array()
Dim myArray As Variant
myArray = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
Range(”A1:A10″).Value = Application.WorksheetFunction.Transpose(myArray)
End Sub
代码中使用了Excel工作表函数Transpose将数组值进行转置，以垂直填充工作表单元格。
从工作表中获取数值并填充数组
Sub From_sheet_make_array()
Dim myArray As Variant, i As Integer
myArray = Range(”A1:A10″).Value
‘遍历数组
For i = 1 To UBound(myArray)
MsgBox myArray(i, 1)
Next
End Sub
注意，该数组是一个二维数组。
传递和接收数组
Sub Pass_array()
Dim myArray As Variant
myArray = Range(”a1:a10″).Value
Receive_array myArray
End Sub
Sub Receive_array(thisArray)
Dim i As Integer
For i = 1 To UBound(thisArray)
MsgBox thisArray(i, 1)
Next
End Sub
本示例演示了将数组作为参数进行传递。
发表评论