(资料图片)

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。

本文分享完毕，希望对大家有所帮助。