vba excel以增量方式将数据放入指定列

Sub AddDataToColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim newData As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取指定列的最后一行
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 设置新数据的范围
    Set newData = ws.Range("A2:A5") ' 假设新数据在A2:A5范围内
    
    ' 将新数据添加到指定列的末尾
    ws.Range("A" & lastRow + 1).Resize(newData.Rows.Count, newData.Columns.Count).Value = newData.Value
    
    ' 清除对象引用
    Set ws = Nothing
    Set newData = Nothing
End Sub