Question

如何将 excel 多个工作表中同一区域内的单元格中的数据提取到新工作表，并按顺序依次排列？

一个工作薄中有许多工作表，比如我想要提取（A1：A9）列数据到新工作表，在新工作表中从上到下依次排列；这个用VBA代码怎么弄，注意是一个区域不是单个工作表。

Answer 1

首先提取是要看你提取单元格及内容，来进行判定。

大致分为几点：

1. 复制粘贴。此类比较繁琐。

2. 建议使用公式:vlookup;这个提取基数来进行，

3. 公式=,直接提取。

4. 录制宏，设置宏的快捷键。一键搞定

    

Answer 2

Sub 测试()
Application.ScreenUpdating = False
Dim sht As Worksheet
On Error Resume Next
Set sht = Sheets("汇总")
If Err = 0 Then GoTo 1010
Sheets.Add(after:=Sheets(Sheets.Count)).Name = "汇总"
1010: For Each Sha In Worksheets
If Sha.Name <> "汇总" Then
Sheets("汇总").Range("A" & Sheets("汇总").Range("A65536").End(xlUp).Row() + 1 & ":A" & Sheets("汇总").Range("A65536").End(xlUp).Row() + 9) = Sha.Range("A1:A9").Value
End If
Next
Application.ScreenUpdating = True
End Sub

追问

辛苦了，我先看看。

追答

代码效果是，创建一个工作表，表名为“汇总"
再把除汇总表名的其他工作表的A1:A9
全部复制到汇总表的A列。

追问

挺好的，谢谢啊；不过还有一个小问题要请教一下，如果我要把数据复制到B列不知道代码该怎么去修改？

追答

Sheets("汇总").Range("B" & Sheets("汇总").Range("B65536").End(xlUp).Row() + 1 & ":B" & Sheets("汇总").Range("B65536").End(xlUp).Row() + 9) = Sha.Range("A1:A9").Value

Answer 3

算了，10分 懒得写VBA了，现在看见代码就想吐！

追问

伤，分可以追加的；只要能解决问题。

追答

呵呵，不是分的问题，这两天写多了，看见 那玩意儿就想吐，好吧 就帮你一次，发个样表给我

Answer 4

你把这个复制过去重新排序不就可以了吗？

追问

晕 ，你看清了没，是许多工作表不是一个；你想把我累死啊。