如何把多个相同格式的Excel表格数据快速的合并到一张表格中
1个回答
展开全部
用vba吧，用下面的代码就可以Sub合并含有表头的工作表()x=0Fori=1ToWorksheets.CountIfSheets(i).Name="合并"Thenx=1NextiIfx=0ThenSetsh=Worksheets.Add:sh.Name="合并":Sheets("合并").Moveafter:=Sheets(Sheets.Count)Sheets("合并").ActivateSheets("合并").Cells.ClearForj=1ToWorksheets.Count-1Ifj=1ThenSheets(j).UsedRange.Offset(0,0).CopySheets("合并").[a65536].End(xlUp).Offset(0,0)ElseSheets(j).UsedRange.Offset(1,0).CopySheets("合并").[a65536].End(xlUp).Offset(1,0)EndIfNextjMsgBox"合并完成！"EndSub
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
TableDI
2024-07-18 广告
Excel一键自动匹配,在线免费vlookup工具,3步完成!Excel在线免费vlookup工具,点击88步自动完成vlookup匹配,无需手写公式,免费使用!...
点击进入详情页
本回答由TableDI提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
