excel中如何合并多个sheet到一个表？

最新推荐文章于 2023-05-22 11:12:26 发布

dingshigu2053

最新推荐文章于 2023-05-22 11:12:26 发布

阅读量585

点赞数

原文链接：http://www.cnblogs.com/linzhen/p/5796535.html

版权

转自老外的帖子，试过了管用：https://www.extendoffice.com/documents/excel/1184-excel-merge-multiple-worksheets-into-one.html
excel中打开宏编辑器，粘贴如下宏代码：
 
  Sub 
  Combine() 
 
  Dim 
  J  
  As 
  Integer 
 
  On 
  Error 
  Resume 
  Next 
 
  Sheets(1). 
  Select 
 
  Worksheets.Add 
 
  Sheets(1).Name =  
  "Combined" 
 
  Sheets(2).Activate 
 
  Range( 
  "A1" 
  ).EntireRow. 
  Select 
 
  Selection.Copy Destination:=Sheets(1).Range( 
  "A1" 
  ) 
 
  For 
  J = 2  
  To 
  Sheets.Count 
 
  Sheets(J).Activate 
 
  Range( 
  "A1" 
  ). 
  Select 
 
  Selection.CurrentRegion. 
  Select 
 
  Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1). 
  Select 
 
  Selection.Copy Destination:=Sheets(1).Range( 
  "A65536" 
  ). 
  End 
  (xlUp)(2) 
 
  Next 
 
  End 
  Sub 
 
   运行宏