（实在是难！！！）如何将文件夹里多个EXCEL工作簿简单合并为1个EXCEL

tpf418

各位高手：
           请赐教，盘点汇总文件夹中有很多个科室盘点“EXCEL工作簿”，如何简单的把他们合并到一个新的EXCEL工作簿中？

wangafg011

如果结构相同就使用vba合并；结构不同就使用第三方表逐一引用把结构统一，再使用vba合并.

tpf418

不太会设计VBA，高手能否帮我做个简单的版本。

wangafg011

多个分表合并，vba是最合适的。这是我自己的合并vba，可以把一个工作簿中除去不要合并的表，剩下的都合并到一个表里。
Sub hbdate()
'
' ddd Macro
'
  Worksheets("合并表").Select
  Rows("2:2000").Select
  Selection.ClearContents
  
  j = 2
  
  For Each ws In Worksheets
  If ws.Name <> "非合并表1" And ws.Name <> "非合并表2" And ws.Name <> "非合并表3" And ws.Name <> "非合并表3" Then
    arr = Sheets(ws.Name).Range("A1:W2000")
    Worksheets("合并表").Select
    For i_1 = 2 To UBound(arr, 1)
   
        If arr(i_1, 1) > 0 And arr(i_1, 1) <> "a" And arr(i_1, 1) <> "备用" Then
        For i_2 = 1 To UBound(arr, 2)
        
        Cells(j, i_2).Value = arr(i_1, i_2)
         'Debug.Print arr(i_1, 1) '测试
        Next i_2
        j = j + 1 '在if判定完成后j增加1.
        End If
        
      
        
    Next i_1
  End If
  Next


End Sub

wangafg011

删除 重复了

3190496160

需要把多个工作簿中的多个工作表合并为一个工作簿中多个工作表，其实就是多薄多表合并为一薄多表问题，论坛很多这样的帖子，搜搜就可以用

tony@cq

PQ汇总参考

tpf418

谢谢，这个一定要用到基本的宏知识，才可以吧。

qawyuhaiyang

超级超级谢谢大神的分享

xlgw521

在网上下一个第三方工具轻松搞定     方方格子     看下图操作