多条件，不重复项求和，如何用VBA实现，谢谢

gfdhgw · 发表于 2019-4-17 17:16

本帖最后由 gfdhgw 于 2019-4-19 16:49 编辑

订单明细表H列采购对应入库表G列订单号，订单明细表B列商品编码对应入库表B列商品编码，然后对入库表中对应F列入库数量求和，与订单明细E列发货数量对比，相同，在订单明细P表标识入，不相等，列求出实际入库数量，入库表中A列作业指令出现重复，则此作业指令下面的入库数量只计算为一次（13，20行中的作业指令一样，对应数量只计算一次）,入库表中数量每天是不断添加的
请各位老师，帮用VBA实现，谢谢！

1，数据量多的情况下，再重新统计的时候，是否能只对，未标识 “入“”的进行统计，这样减少统计时间和内存占用较多导致表格卡顿。
2，1个作业指令行数较多时，会分几页出现同一个作业指令这个标题，致使会有商品统计不到，就是说在判断作业指令重复时，不只是对作业指令单号判断，还要对下面的每个序号对应的数据进行判断是否确实重复。
入库数据13-21行和22-30行，这是重复的，统计入库数量时，确实是要删除，后面的36，77，120行的作业指令，是一个指令行数太多，原数据是分几页的，复制过来时会有几个标题和同一个作业指令号码，但是他们下面的序号和数据是没有重复的，所以不能算是重复数据，需要统计。现在就是要判断同一个作业指令如果重复了，如果他们的序号也是重复的，则对应数据不统计，否则要统计

谢谢

gfdhgw · 发表于 2019-4-17 21:24

请各位老师有空帮处理下，谢谢

autolzg · 发表于 2019-4-17 21:30

表格比较复杂，数据不多
未经严格测试...
不知道有没有达到楼主要求

到货统计.zip (25.27 KB, 下载次数: 32)

Dim arrrk '入库数据_数组
Sub 到货情况统计()
Dim d As Object
Dim arrmx '订单明细数据_数组
Set d = CreateObject("Scripting.Dictionary")
With ThisWorkbook.Worksheets("入库")
arrrk = .Range("A1:I" & .Cells(65536, 2).End(3).Row)
End With
Call 删除重复数据 '删除入库数组中重复作业指令对应的数据
For i = 3 To UBound(arrrk)
If IsNumeric(arrrk(i, 2)) Then
d(arrrk(i, 2)) = d(arrrk(i, 2)) + arrrk(i, 6)
End If
Next i
With ThisWorkbook.Worksheets("订单明细")
arrmx = .Range("A10:P" & .Cells(65536, 1).End(3).Row)
For i = 1 To UBound(arrmx)
If arrmx(i, 5) = d(arrmx(i, 2)) Then
Cells(i + 9, "P") = "入"
Else
Cells(i + 9, "P") = d(arrmx(i, 2))
End If
Next i
End With
End Sub
Sub 删除重复数据() '删除重复作业指令对应的数据
Dim dz As Object '字典作业指令
Set dz = CreateObject("Scripting.Dictionary")
For i = 3 To UBound(arrrk)
If InStr(arrrk(i, 1), "作业指令") And (Not dz.exists(arrrk(i, 1))) Then
dz(arrrk(i, 1)) = 1
ElseIf InStr(arrrk(i, 1), "作业指令") And dz.exists(arrrk(i, 1)) Then
Do
For j = 1 To UBound(arrrk, 2)
arrrk(i, j) = ""
Next j
i = i + 1
If i - 1 = UBound(arrrk) Then Exit Do
Loop Until InStr(arrrk(i, 1), "作业指令") 'Or i = UBound(arrrk) + 1
End If
Next i
End Sub

复制代码

gfdhgw · 发表于 2019-4-19 09:46

本帖最后由 gfdhgw 于 2019-4-19 10:28 编辑

autolzg 发表于 2019-4-17 21:30
表格比较复杂，数据不多
未经严格测试...
不知道有没有达到楼主要求

感谢帮助，按照原来简单的数据是符合要求的。综合考虑实际情况后。有新的要求，看老师能否有空再帮看一下是否能实现。
订单明细表H列采购对应入库表G列订单号，订单明细表B列商品编码对应入库表B列商品编码，然后对入库表中对应F列入库数量求和，与订单明细E列发货数量对比，相同，在订单明细P表标识入，不相等，列求出实际入库数量，入库表中A列作业指令出现重复，则此作业指令下面的入库数量只计算为一次（13，20行中的作业指令一样，对应数量只计算一次）,入库表中数量每天是不断添加的
请各位老师，帮用VBA实现，谢谢！

1，数据量多的情况下，再重新统计的时候，是否能只对，未标识 “入“”的进行统计，这样减少统计时间和内存占用较多导致表格卡顿。
2，1个作业指令行数较多时，会分几页出现同一个作业指令这个标题，致使会有商品统计不到，就是说在判断作业指令重复时，不只是对作业指令单号判断，还要对下面的每个序号对应的数据进行判断是否确实重复。
谢谢

autolzg · 发表于 2019-4-19 10:13

gfdhgw 发表于 2019-4-19 09:46
感谢帮助，按照原来简单的数据是符合要求的。综合考虑实际情况后。有新的要求，看老师能否有空再帮看一下 ...

根据你后面补充的数据来看，似乎又没有重复数据，也就不用删除重复数据那个sub过程
最开始你那几个重复数据是你“故意添加”的吗？
你还是先整理好你入库表里的原始数据吧

gfdhgw · 发表于 2019-4-19 10:35

后面上传的表格中，入库数据13-21行和22-30行，这是重复的，统计入库数量时，确实是要删除，后面的36，77，120行的作业指令，是一个指令行数太多，原数据是分几页的，复制过来时会有几个标题和同一个作业指令，但是他们的序号是没有重复的，所以不能算是重复数据，需要统计。现在就是要判断同一个作业指令如果重复了，如果他们的序号也是重复的，则对应数据不统计，否则要统计。
谢谢

gfdhgw · 发表于 2019-4-19 10:36

autolzg 发表于 2019-4-19 10:13
根据你后面补充的数据来看，似乎又没有重复数据，也就不用删除重复数据那个sub过程
最开始你那几个重复 ...

后面上传的表格中，入库数据13-21行和22-30行，这是重复的，统计入库数量时，确实是要删除，后面的36，77，120行的作业指令，是一个指令行数太多，原数据是分几页的，复制过来时会有几个标题和同一个作业指令号码，但是他们下面的序号和数据是没有重复的，所以不能算是重复数据，需要统计。现在就是要判断同一个作业指令如果重复了，如果他们的序号也是重复的，则对应数据不统计，否则要统计。
谢谢

zpy2 · 发表于 2019-4-19 10:43

gfdhgw 发表于 2019-4-19 10:36
后面上传的表格中，入库数据13-21行和22-30行，这是重复的，统计入库数量时，确实是要删除，后面的36，77 ...

从哪复制来的，好多合并单元格。。。

gfdhgw · 发表于 2019-4-19 10:53

zpy2 发表于 2019-4-19 10:43
从哪复制来的，好多合并单元格。。。

是的，公司内部的网页上面的，无法下载，主要问题，是判断重复问题，不然用函数就解决了

zpy2 · 发表于 2019-4-19 10:55

本帖最后由 zpy2 于 2019-4-19 10:57 编辑

gfdhgw 发表于 2019-4-19 10:53
是的，公司内部的网页上面的，无法下载，主要问题，是判断重复问题，不然用函数就解决了

公司内部的网页上面的，
如果量不大，excel可以解决，如果量大恐怕excel这样处理有难度。是不是业务逻辑。。。。
如果是网页的，除了直接复制粘贴到Excel，还可以复制到文本整理好再粘贴可能处理起来要方便一些。

		自动登录	找回密码
密码			免费注册

[求助] 多条件，不重复项求和，如何用VBA实现，谢谢

评分