【求助】如何根据各客户的订单，依据基础数据汇总出各供应商的供应单

dsqbyf

还有一个疑问源数据中分拣单位那列不是固定的该如何设置

dsqbyf

dsqbyf 发表于 2024-10-4 14:03
还有一个疑问源数据中分拣单位那列不是固定的该如何设置

有可能在第14列，下单客户多了也有可能在100列

dsqbyf

醉眼看尘世 发表于 2024-10-4 02:42
睡不着，精神太好了，找点事儿干。。。附件中

源数据中13，14列为变量不是固定的

dsqbyf

这是根据各位老师的代码改的结果，哪位大神有时间帮忙优化一下

1.源数据图片预定单位及以后的列不是固定的为倒数非空的1/2/3/4列
2.目标工作表生成的数据不要源数据表最后一行的合计
3.采购单工作表能不能去掉读取供应商列表按钮，a2单元格下拉直接根据目标表格实现现在的效果

dsqbyf

醉眼看尘世 发表于 2024-10-4 02:42
睡不着，精神太好了，找点事儿干。。。附件中

Sub test()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("源数据")
    Dim lastRow As Long
   
    ' 遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        With ws
            ' 假设合计行包含"合计"，并且位于最后一行
            ' 从最后一行开始向上查找，直到找到不包含"合计"的行
            lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
            Do While .Cells(lastRow, 1).Value = "合计"
                .Rows(lastRow).Delete
                lastRow = lastRow - 1
            Loop
        End With
    Next ws
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("源数据")
    Set sh = wb.Sheets("商品数据")
    Dim m As Worksheet
    Set m = ThisWorkbook.Worksheets("采购单")
   
    m.Range("c1").formula = "=MATCH(""预定合计"",源数据!1:1,0)"
    m.Range("d1").formula = "=MATCH(""分拣单位"",源数据!1:1,0)"
        arr = sht.[a1].CurrentRegion
    brr = sh.[a1].CurrentRegion
    ReDim crr(1 To UBound(arr) - 1, 1 To 4)
    For i = 2 To UBound(arr)
        crr(i - 1, 2) = arr(i, 1)
        crr(i - 1, 3) = arr(i, ThisWorkbook.Sheets("采购单").Range("c1").Value)
        crr(i - 1, 4) = arr(i, ThisWorkbook.Sheets("采购单").Range("d1").Value)
        s = arr(i, 1) & arr(i, ThisWorkbook.Sheets("采购单").Range("d1").Value)
        For j = 2 To UBound(brr)
            ss = brr(j, 5) & brr(j, 12)
            If s = ss Then crr(i - 1, 1) = brr(j, 11)
        Next
    Next
    With wb.Sheets("目标")
        .[a1].Resize(, 4) = [{"供应商名称","商品名称","数量","单位"}]
        .[A2].Resize(UBound(crr), 4) = crr
    End With
    m.Range("c1:D2").ClearContents
    Beep
End Sub