如何通过vba向数组添加新值?
要向现有数组添加新值,您必须有一个动态数组来重新定义其元素,并且在执行此操作时,必须保留旧元素的值。这可以帮助您仅将值添加到您定义的新元素中,而使零件的其余部分保持不变。
下面有一个数组,其中定义了两个元素。由于这是一个动态数组,因此您有一个“ReDim”语句来定义两个元素,然后向这些元素添加值。
然后我们将向该数组添加第三个元素。
在 VBA 中向数组添加新值
- 首先,您需要使用带有“Preserve”关键字的“ReDim”语句来保留两个元素,包括要为其添加值的新元素。
- 接下来,您需要定义想要在数组中包含的元素。这里需要三个元素,因此我们使用 1 到 3。
- 之后,您需要向第三个元素(即您定义的新元素)添加值。
- 最后使用debug.print在立即窗口中获取包含新项目的所有项目。
Option Explicit Option Base 1 Sub vba_array_add_value() Dim myArray() As Variant ReDim myArray(2) myArray(1) = 5 myArray(2) = 10 ReDim Preserve myArray(1 To 3) myArray(3) = 15 Debug.Print myArray(1) Debug.Print myArray(2) Debug.Print myArray(3) End Sub
让我再跟大家分享几句话。
- 如果您知道稍后需要在代码中向数组添加更多值,则应该在开始时将数组声明为动态数组。
- 使用此方法只能在数组末尾添加新元素。