将数组打印到可变单元格范围VBA

Sub PrintArrayToRange()
    Dim dataArray() As Variant
    Dim rangeStart As Range
    Dim rangeEnd As Range
    Dim outputRange As Range
    Dim i As Integer
    
    ' 定义数组并存储数据
    dataArray = Array("Apple", "Banana", "Orange", "Grapes")
    
    ' 定义输出范围的起始单元格和结束单元格
    Set rangeStart = Sheet1.Range("A1")
    Set rangeEnd = Sheet1.Range("A1").Offset(UBound(dataArray), 0)
    
    ' 定义输出范围
    Set outputRange = Sheet1.Range(rangeStart, rangeEnd)
    
    ' 将数组数据赋值给输出范围
    For i = 1 To UBound(dataArray) + 1
        outputRange.Cells(i, 1).Value = dataArray(i - 1)
    Next i
End Sub