首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

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

可以通过以下步骤实现:

  1. 打开Excel文件并按下Alt + F11打开VBA编辑器。
  2. 在VBA编辑器中,选择插入 -> 模块,创建一个新的模块。
  3. 在新的模块中编写以下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
  1. 在代码中,将"A1:A10"替换为实际的源列范围,将"B1"替换为实际的目标列起始单元格。
  2. 按下F5运行宏,源列的值将被添加到目标列中。
页面内容是否对你有帮助?
有帮助
没帮助

相关·内容

领券