excel 合并多个工作表 宏(合并excel工作表宏)

燕义园
导读 大家好,小小发现excel 合并多个工作表 宏,合并excel工作表宏这个很多人还不知道,那么小小来为大家解答以上的问题,现在让我带着大家一起...

大家好,小小发现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工作表宏

免责声明:本文由用户上传,如有侵权请联系删除!