根据库存表自动生成产品查找表

43272chl

每天的发货内容不同，多个库房重复摆放多种产品，每天查找看得眼都花了。利用vba每天能根据桶型，自动生成每个库房的产品位置、质量、数量和生产日期（生成红字内容），请大神帮助 产品查找.rar (11.75 KB, 下载次数: 13)

2021-8-10 12:16 上传

点击文件名下载附件

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim d As Object
Dim ar As Variant, br As Variant
Dim i As Long
Dim arr()
Set d = CreateObject("scripting.dictionary")
br = Sheets("库存表").[a1].CurrentRegion
With Sheets("产品查找")
    .[a1].CurrentRegion.Offset(1, 7) = Empty
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .[a1].CurrentRegion
    For i = 2 To UBound(ar)
        If Trim(ar(i, 4)) <> "" Then
            d(Trim(ar(i, 4))) = i
        End If
    Next i
    For i = 2 To UBound(br)
        If Trim(br(i, 4)) <> "" Then
            xh = d(Trim(br(i, 4)))
            If xh <> "" Then
                m = .Cells(xh, Columns.Count).End(xlToLeft).Column + 1
                .Cells(xh, m) = br(i, 1)
                .Cells(xh, m + 1) = br(i, 2)
                .Cells(xh, m + 2) = br(i, 5)
                .Cells(xh, m + 3) = br(i, 6)
                .Cells(xh, m + 4) = br(i, 7)
            End If
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

产品查找.rar (19.43 KB, 下载次数: 18)

2021-8-10 15:13 上传

点击文件名下载附件

43272chl

3190496160 发表于 2021-8-10 15:13

谢谢大神