|
本帖最后由 放逐理想 于 2019-3-14 21:54 编辑
老师,您好!
我的文件中一共有两个表
1、数据源表-数据来源
2、男段-数据获取后存储表
我需要汇总符合'“男段”表中 3列PO# 、4列Gender Description 、5列style 和12-31列码数,到“数据源表“中求和各码数的数量。
请老师帮忙看下那些出现问题了,汇总不出来,以下是我写的代码,谢谢。
Sub 订单码数求和()
Application.ScreenUpdating = False
Dim d As Object
Dim arr, brr
Dim a, X, Y As Integer
arr = ThisWorkbook.Sheets("数据源").Range("A3:AL" & ThisWorkbook.Sheets("数据源").Range("C" & Cells.Rows.Count).End(xlUp).Row)
brr = ThisWorkbook.Sheets("男段").Range("A2:AE" & ThisWorkbook.Sheets("男段").Range("C" & Cells.Rows.Count).End(xlUp).Row)
Set d = CreateObject("scripting.dictionary")
For a = 1 To UBound(arr)
s = arr(a, 3) & arr(a, 8) & arr(a, 10) '订单号+段别+型体-配色代码
d(s) = d(s) + arr(a, 5)
Next
For X = 2 To UBound(brr)
For Y = 12 To 31
s = brr(X, 3) & brr(X, 4) & brr(X, 5) & "-" & brr(2, Y)
brr(X, Y) = d(s)
Next Y
Next X
ThisWorkbook.Sheets("男段").Range("A2").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
|
|