请教大神，数据提取

桑土公的肚子

怎么才能从一张大表里面提取开票金额、客户姓名、商品名称、商品数量，忽略没有填写数量的商品

桑土公的肚子

顶一下顶一下

swl4561255

C1公式：

1. =SUMPRODUCT((Sheet1!C$2:C$8=A1)*(Sheet1!D$1:Q$1=B1)*Sheet1!D$2:Q$8)

复制代码

E1、G1公式类似

3190496160

Sub 提取数据()
Dim ar As Variant
With Sheets("sheet1")
    r = .Cells(Rows.Count, 3).End(xlUp).Row
    ar = .Range("a1:r" & r)
End With
Dim br()
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
    If ar(i, 3) <> "" Then
        n = n + 1
        br(n, 1) = ar(i, 3)
        br(n, 2) = "开票总金额"
        br(n, 3) = ar(i, 17)
        x = 3
        For j = 4 To 16
            If ar(i, j) <> "" Then
                x = x + 2
                br(n, x - 1) = ar(1, j)
                br(n, x) = ar(i, j)
            End If
        Next j
    End If
Next i
With Sheets("sheet2")
    .UsedRange = Empty
    .[a1].Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

2024.3.rar (13.45 KB, 下载次数: 4)

2024-3-26 18:15 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, i&, j&, r&, n&, iColSize&
   
    Application.ScreenUpdating = False
   
    ar = Sheets(1).[A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar), 1 To UBound(ar, 2) * UBound(ar, 2))
    For i = 2 To UBound(ar)
        r = r + 1
        br(r, 1) = ar(i, 3)
        n = 1
        For j = 4 To UBound(ar, 2)
            If Len(ar(i, j)) Then
                n = n + 1: br(r, n) = ar(1, j)
                n = n + 1: br(r, n) = ar(i, j)
            End If
        Next j
        If n > iColSize Then iColSize = n
    Next i
   
    Cells.Clear
    [A1].Resize(r, iColSize) = br
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。