1、首先打开Microsoft Office Excel 2007，上例文件保存文件名《Excel怎样快速复制数据追加到另表 .xlsm》（演示文件，下面代码复制到能运行宏的工作簿都可以）如图。
2、然后按下快捷键ALT+F11打开VBE（宏）编辑界面，然后点菜单栏【插入】下拉中列表中点【模块（M）】如图。
3、然后插入了一个模块1，在代码框中复制如下代码：Sub 选数据复制追加表() 争犸禀淫'2020-9-16 21:51:53 Dim r As Long, myrs As 伊怕锱鳏Range, myr As Range, mb Dim i As Long On Error Resume Next Set myrs = Selection With CreateObject("scripting.dictionary") For Each myr In myrs .Add myr.Row, myr.Address Next myr mb = .keys End With r = Sheets("Sheet2").Range("a" & Rows.Count).End(xlUp).Row For i = 0 To UBound(mb) r = r + 1 Range("B" & mb(i)).Copy Sheets("Sheet2").Range("a" & r) Range("E" & mb(i)).Copy Sheets("Sheet2").Range("B" & r) Next iEnd Sub
4、以上操作动态过程如下：
5、回到工作表窗口，添加命令按钮（添加方法详见下面经验），引用宏【选数据复制追加表】。
6、操作宏方法：先选要复制数据（可单选，也可以隔行，也可以区域选，A至E列外也可以对应数据复制过去追加表），再点【复制】命令按钮完成操作。为了操作可视化，增加一个窗口操作。
7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！