使用Excel VBA宏将值从一列添加到另一列

Sub AddValues()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim lastRow As Long
    
    ' 设置源列和目标列的范围
    Set sourceRange = Range("A1:A10") ' 将"A1:A10"替换为实际的源列范围
    Set targetRange = Range("B1") ' 将"B1"替换为实际的目标列起始单元格
    
    ' 获取源列的最后一行
    lastRow = sourceRange.Cells(sourceRange.Rows.Count, 1).End(xlUp).Row
    
    ' 将源列的值复制到目标列
    sourceRange.Copy targetRange.Resize(lastRow)
    
    ' 清除剪贴板
    Application.CutCopyMode = False
    
    ' 弹出消息框显示操作完成
    MsgBox "Values added successfully!"
End Sub