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

发布网友发布时间：2022-05-26 14:31

我来回答

共4个回答

热心网友时间：2023-10-22 04:42

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

大致分为几点：

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

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

公式=,直接提取。

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

热心网友时间：2023-10-22 04:43

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

热心网友时间：2023-10-22 04:43

算了，10分懒得写VBA了，现在看见代码就想吐！追问伤，分可以追加的；只要能解决问题。

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

热心网友时间：2023-10-22 04:44

你把这个复制过去重新排序不就可以了吗？追问晕，你看清了没，是许多工作表不是一个；你想把我累死啊。