如何通过vba向数组添加新值?

要向现有数组添加新值,您必须有一个动态数组来重新定义其元素,并且在执行此操作时,必须保留旧元素的值。这可以帮助您仅将值添加到您定义的新元素中,而使零件的其余部分保持不变。

下面有一个数组,其中定义了两个元素。由于这是一个动态数组,因此您有一个“ReDim”语句来定义两个元素,然后向这些元素添加值。

动态数组重新定义元素

然后我们将向该数组添加第三个元素。

在 VBA 中向数组添加新值

  1. 首先,您需要使用带有“Preserve”关键字的“ReDim”语句来保留两个元素,包括要为其添加值的新元素。
  2. 接下来,您需要定义想要在数组中包含的元素。这里需要三个元素,因此我们使用 1 到 3。
  3. 之后,您需要向第三个元素(即您定义的新元素)添加值。
  4. 最后使用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

让我再跟大家分享几句话。

  • 如果您知道稍后需要在代码中向数组添加更多值,则应该在开始时将数组声明为动态数组。
  • 使用此方法只能在数组末尾添加新元素。

添加评论

您的邮箱地址不会被公开。 必填项已用 * 标注