怎么提取工作表中的指定列并且整理出来

何锐 · 发表于 2024-4-29 20:47

怎么在一个工作薄中提取工作表中指定的列的字段信息，并且整理到一个新的表中？

因为有一些表中他的列排序有些不一样，所以没有办法使用合并表格来获取数据。
求大神指点

祝洪忠- · 发表于 2024-4-29 21:09

使用Excel中的PQ功能合并工作表然后再使用透视表

沈默00 · 发表于 2024-4-30 07:41

商品名称和销售合计还在不固定的列？？

沈默00 · 发表于 2024-4-30 07:57

沈默00 · 发表于 2024-4-30 08:01

一个月30天的表格可以一次提取，，

何锐 · 发表于 2024-4-30 09:32

沈默00 发表于 2024-4-30 08:01
一个月30天的表格可以一次提取，，

请教大神，我这边测试了，这个VBA是按照固定位置的列获取数据的，但是我们有一些特殊情况，他有些列顺序会被打乱，可能需要在VBA里面添加关键字条件来获取数值，这个该怎么操作呢？

何锐 · 发表于 2024-4-30 09:50

沈默00 发表于 2024-4-30 07:41
商品名称和销售合计还在不固定的列？？

是的，就是有些表格他有这种情况。

3190496160 · 发表于 2024-4-30 10:31

Sub 字典合并数据()
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("提取数据")
y = .Cells(1, Columns.Count).End(xlToLeft).Column
.[a1].CurrentRegion.Offset(1) = Empty
ar = .Range(.Cells(1, 1), .Cells(100000, y))
For j = 2 To UBound(ar, 2)
      d(ar(1, j)) = j
Next j
k = 1
For Each sh In Sheets
      If sh.Index > 1 Then
         br = sh.[a1].CurrentRegion
         For i = 2 To UBound(br)
            If br(i, 2) <> "" Then
                  k = k + 1
                  ar(k, 1) = sh.Name
                  For j = 1 To UBound(br, 2)
                     lh = d(br(1, j))
                     If lh <> "" Then
                        ar(k, lh) = br(i, j)
                     End If
                  Next j
            End If
         Next i
      End If
Next sh
.[a1].Resize(k, UBound(ar, 2)) = ar
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2024-4-30 10:32

3190496160 · 发表于 2024-4-30 10:33

举例.rar (35.64 KB, 下载次数: 3)

		自动登录	找回密码
密码			免费注册

[求助] 怎么提取工作表中的指定列并且整理出来