大家好,小小发现excel 合并多个工作表 宏，合并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。
本文分享到此完毕，希望对您有所帮助。
标签： 合并excel工作表宏
免责声明：本文由用户上传，如有侵权请联系删除！