Excel怎样快速复制数据追加到另表

1、excel复制指定数据至另一个工作表指定区域中，如图点击复制按钮后，复制姓名和工资选项，追加到表2的序列中。

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 i

End Sub

4、以上操作动态过程如下：

5、回到工作表窗口，添加命令按钮（添加方法详见下面经验），引用宏【选数据复制追加表】。

6、操作宏方法：先选要复制数据（可单选，也可以隔行，也可以区域选，A至E列外也可以对应数据复制过去追加表），再点【复制】命令按钮完成操作。为了操作可视化，增加一个窗口操作。

7、如果觉得这篇经验帮到了您，请点击下方的 “投票点赞" 或者“收藏”支持我！还有疑问的话可以点击下方的 “我有疑问”，谢谢啦！