关于vba工作表合并，合并excel工作表宏这个很多人还不知道，今天菲菲来为大家解答以上的问题，现在让我们一起来看看吧！
1、sheet1和sheet1怎么合并？是一个sheet1的数据放在另一个的下面？还是... 补充：虽然不是很明白你的意思。
2、还是把简单代码贴上吧。
3、不完善的自己完美吧：Sub Unite() Dim strName As String Dim findXls As Workbook Dim AddDataPosition As Long strName = Dir(ThisWorkbook.Path & "*.xls", vbNormal) Do While (strName <> "") If strName <> ***.Name Then Set findXls = ***.Open(ThisWorkbook.Path & "" & strName) AddDataPosition = ThisWorkbook.Worksheets(1).Range("A1").SpecialCells(xlLastCell).Row + 2 findXls.Worksheets(1).UsedRange.Copy ThisWorkbook.Worksheets(1).Range("A" & AddDataPosition) AddDataPosition = ThisWorkbook.Worksheets(2).Range("A1").SpecialCells(xlLastCell).Row + 2 findXls.Worksheets(2).UsedRange.Copy ThisWorkbook.Worksheets(2).Range("A" & AddDataPosition) AddDataPosition = ThisWorkbook.Worksheets(3).Range("A1").SpecialCells(xlLastCell).Row + 2 findXls.Worksheets(3).UsedRange.Copy ThisWorkbook.Worksheets(3).Range("A" & AddDataPosition) findXls.Close False Set findXls = Nothing End If strName = Dir() LoopEnd Sub。
本文到此分享完毕，希望对大家有所帮助。