Excel2010如何把几个相同格式Sheet合并到一个Sheet

yanr51320

各位大神，我怎么将附件中表格里面的几个Sheet合并到一个Sheet里面呀。

活在理想的世界

这几个表你要怎么合并？
前几个和最后一个表结构不一样，他们之间有什么关系吗？

yanr51320

活在理想的世界 发表于 2017-2-22 13:23
这几个表你要怎么合并？
前几个和最后一个表结构不一样，他们之间有什么关系吗？

额，是我没说清楚，最后一个表不用管，就前面7个表格式是一样的，需要复制粘贴到一个表里面。

活在理想的世界

直接用下面的代码导入数据吧

1. Sub 导入数据()
   
2. Dim SHT As Worksheet
   
3. Dim K, X As Long
   
4. Dim N, M As String
   
5. N = ActiveSheet.Name
   
6. M = ActiveWorkbook.Name
   
7. For Each SHT In Sheets
   
8. If Left(Right(M, 4), 1) = "x" Then
   
9.     X = 1048576
   
10. Else
    
11.     X = 65536
    
12. End If
    
13. K = Sheets(N).Range("A" & X).End(xlUp).Row
    
14.     If SHT.Name <> N Then
    
15.     行 = SHT.Range("A" & X).End(xlUp).Row
    
16.     列 = SHT.Range("A1").End(xlToRight).Column
    
17.         SHT.Range("A1").Resize(1, 列).Copy Sheets(N).Range("A1")
    
18.         SHT.Range("A2").Resize(行, 列).Copy Sheets(N).Range("A" & K + 1)
    
19.     End If
    
20. Next
    
21. End Sub

复制代码

活在理想的世界

2222222222222222222

活在理想的世界

11111111111111111111111111111111111111

yanr51320

活在理想的世界 发表于 2017-2-22 14:22
11111111111111111111111111111111111111

你就是复制粘贴的吧？我这个表每个Sheet一个月下来会有上千条，我希望有个办法能自动合并到一个Sheet里。

活在理想的世界

yanr51320 发表于 2017-2-27 14:37
你就是复制粘贴的吧？我这个表每个Sheet一个月下来会有上千条，我希望有个办法能自动合并到一个Sheet里。

你刚开始就是说要复制粘贴到一个表里去的，现在说要合并。

那你这个合并的意思是什么？

你说每个sheet一个月下来要上千条，这个跟我的代码有什么关系。

我的代码可以合并108万条数据呢？

如果你认为Excel放不下可以选择ACCESS

活在理想的世界

要把数据从多个sheet合并到某个指定的sheet有两个方法
1、复制粘贴；
2、sql
我不介意用SQL方法再给你做一遍，但是结果肯定一样。

问题是你所说的合并是个神马意思？

活在理想的世界

yanr51320 发表于 2017-2-22 14:09
额，是我没说清楚，最后一个表不用管，就前面7个表格式是一样的，需要复制粘贴到一个表里面。

这是你回复我的，你说了：“前面7个表格式是一样的，需要复制粘贴到一个表里面。”

4楼的代码是我给你的，这个代码是我加载宏里的一段代码，这是我平时用于表格之间上下连接的代码，跟SQL里的UNION ALL语句有这相同的作用，为了图方便拷贝了一份给你用。

整个过程就是如此。