Excel VBA -将数据跨多列移动到单列

Sub MoveDataToSingleColumn()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    Dim i As Long
    
    ' 设置源数据范围
    Set sourceRange = Range("A1:C10")
    
    ' 设置目标数据起始位置
    Set targetRange = Range("E1")
    
    ' 获取源数据最后一行
    lastRow = sourceRange.Rows.Count + sourceRange.Row - 1
    
    ' 循环遍历源数据范围
    For i = sourceRange.Row To lastRow
        ' 将每个单元格的值复制到目标位置
        targetRange.Value = Cells(i, sourceRange.Column).Value
        
        ' 更新目标位置
        Set targetRange = targetRange.Offset(1, 0)
    Next i
End Sub