两个excel表，字段完全相同，如何实现自动汇总在一表中

海底有座冰城

求助，见附件表，想把入库表，和出库表，的数据合并到一个表中（出入库汇总表），之前用SQL语句，由于电脑数据库问题，总说错误，希望能有简单的宏或者VBA来实现，工作忙还没来得及学习VBA，希望高手好心人能帮我一下，救急，工作需要。

海底有座冰城

上传附件，刚才忘了打包上传

海底有座冰城

• Sub test()
•     Dim Total As Boolean
•     Dim count&
•     Dim result(1 To 10000, 1 To 50)
•     Dim arr
•     Dim rows&, columns&, i&, j&
•     rows = 1
•     Application.ScreenUpdating = False
•     For Each Key In Sheets
•         If Key.Name <> "汇总" Then
•             count = count + 1
•             arr = Key.[a1].CurrentRegion.Value
•             If count = 1 Then
•                 columns = UBound(arr, 2)
•                 For j = 1 To columns
•                     result(1, j) = arr(1, j)
•                 Next
•             End If
•             For i = 2 To UBound(arr)
•                 rows = rows + 1
•                 For j = 1 To UBound(arr, 2)
•                     result(rows, j) = arr(i, j)
•                 Next
•             Next
•         Else
•             Total = True
•         End If
•     Next
•     If Total = False Then
•         Sheets.Add After:=Sheets(Sheets.count)
•         Sheets(Sheets.count).Name = "汇总"
•     End If
•     With Sheets("汇总")
•         .Cells.Clear
•         .[a1].Resize(rows, columns).Value = result
•         .Activate
•     End With
•     Application.ScreenUpdating = True
• End Sub
  

这是论坛中，相同问题，别人的代码，也不知道对不对，可是我不会VBA，还没学，看不懂，谁能根据我的表，帮我改一下，多谢了，如果你愿意，我想拜你为师。

gdw831001

unION   

gdw831001

select * from [入库表$] unION ALL select * from [出库表$]

zhangzhang

详见附件，结构 有改动， 供参考。。。。

opiona

http://club.excelhome.net/thread-1409141-1-1.html

海底有座冰城

zhangzhang 发表于 2018-7-13 13:20
详见附件，结构 有改动， 供参考。。。。

非常感谢，太谢谢了

jiminyanyan

都是SQL老师呀。。。

海底有座冰城

海底有座冰城 发表于 2018-7-16 16:50
非常感谢，太谢谢了

非常感谢你，但是我希望的不是这样的效果，我只想让两张表合并成一张表，并不进汇总和计算，就如同将入库明细表的内容复制粘贴到出库表数据表内容的最下面的空白行而已。
你做的改动表，对于这种简单的表，用函数也可以的。在此，再次感谢你的帮助。