excel vba 自定义数组，并赋值

### 如何在 Excel VBA 中声明和初始化自定义数组 #### 一维数组的声明与初始化 在一维数组的情况下，可以通过静态或动态方式来声明数组。对于静态数组，在声明时就需要指定其大小；而对于动态数组，则可以在运行时调整尺寸。 - **静态一维数组** 静态数组是在编译期间就已知大小的数组。下面是一个简单的例子展示如何创建并填充一个包含字符串的一维静态数组[^3]： ```vba Sub InitializeStaticOneDimensionalArray() ' 定义一个长度为5的静态字符型数组 Dim staticArray(1 To 5) As String ' 初始化该数组元素 staticArray(1) = "Apple" staticArray(2) = "Banana" staticArray(3) = "Cherry" staticArray(4) = "Date" staticArray(5) = "Elderberry" ' 输出第一个元素验证是否成功赋值 Debug.Print staticArray(1) End Sub ``` - **动态一维数组** 动态数组允许程序根据实际需求改变数组大小。这通常通过 `ReDim` 关键字实现。这里给出一段代码片段用于说明如何操作动态数组: ```vba Sub InitializeDynamicOneDimensionalArray() ' 声明未分配空间的动态整数数组 Dim dynamicArray() As Integer ReDim dynamicArray(1 To 3) ' 初始设定有三个位置 ' 给这些位置赋予具体数值 dynamicArray(1) = 10 dynamicArray(2) = 20 dynamicArray(3) = 30 ' 如果需要扩展数组容量，可以再次使用ReDim ReDim Preserve dynamicArray(1 To 4) ' 使用Preserve保留已有数据的同时扩大规模至四个位置 dynamicArray(4) = 40 ' 显示最后一个元素确认新增加的数据项已被正确设置 Debug.Print dynamicArray(4) End Sub ``` #### 多维数组的声明与初始化 多维数组能够存储更复杂结构的信息，比如表格形式的数据集。最常见的是二维数组，它类似于电子表格中的行列布局。 - **二维数组** 下面的例子展示了怎样建立以及给定初始值得到一个名为 `items` 的二维数组，并将其内容写入工作表特定区域内： ```vba Sub InitializeTwoDimensionalArray() ' 设置二维数组 Dim items(1 To 2, 1 To 2) As Variant items(1, 1) = "a1" items(1, 2) = "b1" items(2, 1) = "a2" items(2, 2) = "b2" ' 将二维数组的内容复制到活动工作簿的第一个工作表上的A1:B2范围内 Sheet1.Range("A1:B2").Value = items End Sub ``` 上述代码不仅解释了如何构建不同类型的数组，还提供了具体的实例帮助理解每一步骤的实际应用效果。当涉及到更大规模或多维度的情况时，可以根据实际情况灵活运用以上介绍的方法来进行相应的处理。