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

何锐

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

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

祝洪忠-

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

沈默00

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

沈默00

沈默00

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

何锐

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

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

何锐

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

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

3190496160

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

3190496160

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

2024-4-30 10:32 上传

点击文件名下载附件