EXCEL 如何将多个工作表或工作簿合并到一个工作表

最新推荐文章于 2022-03-28 23:25:21 发布

weixin_30682127

最新推荐文章于 2022-03-28 23:25:21 发布

阅读量1.7k

点赞数

原文链接：http://www.cnblogs.com/happlyonline/p/5237502.html

版权

在使用Excel 时，我们经常需要将多个工作表或工作簿合并到一个工作表中，这样我们就能快速地对数据进行分析和统计。对于一般用户而言，除了复制每个工作表后再粘贴，没有其他什么方法了。如果只是合并少数几个工作表，这个方法很简单；如果要合并大量的工作表，这个方法非常耗时。现在，我们谈谈其他快速合并工作表或工作簿的方法。

下面的VBA 代码能帮你把当前工作簿里各个工作表里的数据合并到一个新工作表里。同时需要注意的是，所有工作表里的数据结构，列标题，以及各列排列的顺序都必须一样。操作如下：

1. 按住Alt + F11键打开 Microsoft Visual Basic for Applications窗口。

2. 点击插入 >> 模块，再将下面的代码粘贴到模块窗口里。

VBA:将当前工作簿里各个工作表里的数据合并到一个新工作表里

 
         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