Excel VBA - 如何在保留旧数组值的同时向二维变体数组添加行

excel

在 excel VBA 中，处理数组是一项常见的任务。有时候，我们需要向已有的二维变体数组添加新的行，同时又要保留原有的数据。本文将介绍如何使用 VBA 代码实现这一功能，并提供一个案例代码来帮助读者更好地理解。

添加新行的需求

在实际的工作中，我们经常会遇到需要向已有的数组中添加新行的情况。例如，我们可能需要根据某些条件筛选出符合要求的数据，并将其添加到一个已有的数组中。在这种情况下，我们不仅需要添加新行，还需要保留原有的数据，以便后续的处理和分析。

使用 ReDim 语句重新定义数组大小

在 VBA 中，我们可以使用 ReDim 语句来重新定义数组的大小。通过指定 Preserve 关键字，我们可以保留原有的数组值。下面是一个示例代码：

VBA
Sub AddRowToArray()
    Dim arr() As Variant
    Dim newRow() As Variant
    Dim i As Long
    
    ' 假设已有的数组 arr 是一个二维数组，包含了一些数据，我们需要向其中添加新行
    arr = Range("A1:C5").Value
    
    ' 定义一个新行，这里假设新行的数据是从单元格 D1 到 F1 的值
    newRow = Range("D1:F1").Value
    
    ' 重新定义数组的大小，增加一行
    ReDim Preserve arr(1 To UBound(arr, 1) + 1, 1 To UBound(arr, 2))
    
    ' 将新行的值赋给数组的最后一行
    For i = 1 To UBound(newRow, 2)
        arr(UBound(arr, 1), i) = newRow(1, i)
    Next i
    
    ' 打印数组的值，用于验证结果
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            Debug.Print arr(i, j)
        Next j
    Next i
End Sub

在上面的示例代码中，我们首先将一个已有的二维数组 arr 赋给一个变量。然后，我们定义一个新的数组 newRow，并将新行的值赋给它。接下来，我们使用 ReDim 语句重新定义数组 arr 的大小，增加一行。通过指定 Preserve 关键字，我们保留了原有的数组值。最后，我们将新行的值赋给数组的最后一行，并通过打印数组的值来验证结果。

通过使用 VBA 中的 ReDim 语句和 Preserve 关键字，我们可以在保留原有数组值的同时向二维变体数组添加新的行。这对于处理大量数据或需要动态增加数组大小的情况非常有用。希望本文的示例代码能帮助读者更好地理解如何实现这一功能，并在实际工作中得到应用。