求大神指教怎么用VBA把2張表的數據選擇性的貼到另一張總表

急求啊～～～～～～～～～～～～～～～～～

又是📖

这么点数据，复制下不就行了

我只要知道一个就好了，真的有很多很多报表

??

up

繁体字不太好认，对于vba来说，第一个问题应该是很容易的，包含打开关闭工作簿文件，选择性粘贴。
建议先把步骤分解成若干小步骤，把每一小步骤录制宏操作一下，然后把宏代码提取出来，去掉无用的代码。
比如：包含打开关闭工作簿文件，选择性粘贴等等。

打开/关闭文件：
Workbooks.Open Filename:="E:\11111\Book3.xlsx"
Workbooks("Book3.xlsx").Close False
也可以这样关闭：
假设vba代码的文件为第1个，那么就可以把第2个文件关闭：
Workbooks(2).Close False
Workbooks("文件名.xlsx").Close False

对于第一个问题，2007版本及以上，操作方法如下：(方法不止一种)
假设3个工作簿文件放在同一个文件夹内：每月出貨數、可樂出貨數、總表；
打开Excel程序，在Sheet1标签上右击、查看代码，然后把以下vba代码粘贴到代码窗口；
把文件保存在相同文件夹内，文件格式为启用宏的工作簿，文件名为：代码；
在Sheet1标签上右击、查看代码，然后按F5或者运行菜单命令，即可执行vba代码。
vba代码，可参考如下：
Sub a()
Dim Y1, Y2, Y3
Set Y1 = Workbooks.Open(ThisWorkbook.Path & "\每月出貨數.xlsx")
Set Y2 = Workbooks.Open(ThisWorkbook.Path & "\可樂出貨數.xlsx")
Set Y3 = Workbooks.Open(ThisWorkbook.Path & "\總表.xlsx")
Y1.Sheets(1).[A3:A20000].Copy Y3.Sheets(1).[E2]
Y1.Sheets(1).[E3:E20000].Copy Y3.Sheets(1).[F2]
Y1.Sheets(1).[G3:G20000].Copy Y3.Sheets(1).[G2]
Y2.Sheets(1).[A6:G20000].Copy Y3.Sheets(2).[A6]
Y1.Close False
Y2.Close False
Y3.Save
End Sub

修改13楼vba代码：
使用打开文件对话框来打开文件；
按照每月出貨數、可樂出貨數、總表的先后顺序，每次只打开一个文件。
vba代码，可参考如下：
Sub b()
Dim FileOpen, Y(4)
Dim x As Long
For x = 1 To 3
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xlsx),*.xlsx", MultiSelect:=True, Title:="工作薄")
Set Y(x) = Workbooks.Open(FileOpen(1))
Next x
Y(1).Sheets(1).[A3:A20000].Copy Y(3).Sheets(1).[E2]
Y(1).Sheets(1).[E3:E20000].Copy Y(3).Sheets(1).[F2]
Y(1).Sheets(1).[G3:G20000].Copy Y(3).Sheets(1).[G2]
Y(2).Sheets(1).[A6:G20000].Copy Y(3).Sheets(2).[A6]
Y(1).Close False
Y(2).Close False
Y(3).Save
End Sub