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

可以通过以下步骤实现：

打开Excel文件并按下Alt + F11打开VBA编辑器。
在VBA编辑器中，选择插入 -> 模块，创建一个新的模块。
在新的模块中编写以下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

在代码中，将"A1:A10"替换为实际的源列范围，将"B1"替换为实际的目标列起始单元格。
按下F5运行宏，源列的值将被添加到目标列中。

这个宏的作用是将指定范围内的源列的值复制到目标列中。你可以根据实际需求修改源列和目标列的范围。这个宏可以提高工作效率，特别是在需要频繁将数据从一列复制到另一列的情况下。

腾讯云相关产品和产品介绍链接地址：