星橙汁 发表于 2021-10-31 21:46:00

请问excel如何跨表提取多个不同工作表、不同工作簿同一列的数据？ ...

请问excel如何跨表提取多个不同工作表、不同工作簿同一列的数据？
例如，有3个工作表，提取H列的数据。


我是我就是我 发表于 2021-11-16 00:45:51

Sub 合并()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets(1)
sh..CurrentRegion.Offset(1) = Empty
f = Dir(ThisWorkbook.Path & "\*.xls*")
Do While f <> ""
If f <> ThisWorkbook.Name Then
Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
With wb.Worksheets(1)
   r = .Cells(Rows.Count, 8).End(xlUp).Row
   ar = .Range("h1:h" & r)
   rs = rs + 1
   sh.Cells(1, rs).Resize(UBound(ar), UBound(ar, 2)) = ar
End With
wb.Close False
End If
f = Dir
Loop
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

結界 发表于 2021-11-24 21:31:23

恺悌君子 发表于 2022-1-1 08:02:43

能不能不用宏？

余品 发表于 2022-1-17 22:47:44

能不能解释一下？

牛劲十足 发表于 2022-1-24 08:28:36

比如说我现在提取的数是在aam列，有二十多个表，表的名字不一样，代码该怎样修改呢？

胡小相青青 发表于 2022-2-2 13:39:19

跨工作簿提取数据，最佳方案就是代码，
至于你目前所说的，见不到具体的文件，不得而知你的具体情况，爱莫能助

悠然望水 发表于 2022-2-4 18:38:20

能不能把您发的代码每行都说明一下意思?
页: [1]
查看完整版本: 请问excel如何跨表提取多个不同工作表、不同工作簿同一列的数据？ ...