按条件计算比对后写入结果 问题求助

高飞扬

各位老师好！
之前一直使用下面的代码实现标注功能，这个逻辑是当列3,4,6,7,14（C列+D列+F列+G列+N列）首次出现的时候，进行标注；
现在想怎么样改进一下，可以实现： 当满足条件 C列+D列+F列+G列+N列信息相同，且H列数值相加，等P列的订单数量时，则在M列末次对应位置写入END(也就是满足条件计算比对后知道最后一次出现 进行标注），大致效果见图示。附件原始数据有很多，具体参加附件。感谢！

Sub 备注1()
    [q:q].ClearContents
    [q4] = "备注"
    arr = [A1].CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 5 To UBound(arr)
        x = arr(i, 3) & arr(i, 4) & arr(i, 6) & arr(i, 7) & arr(i, 14)
        If Not d.exists(x) Then
            arr(i, 17) = "New1"
            d(x) = ""
        End If
    Next
    [q1].Resize(UBound(arr), 1) = Application.Index(arr, , 17)
End Sub







测试.zip (919.69 KB, 下载次数: 7)

2023-7-19 11:12 上传

点击文件名下载附件

feilanga

1. Sub bz1()
   
2.     arr = Sheet3.Range("A1:R" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row)
   
3.     Dim dic As Object
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 5 To UBound(arr)
   
6.         Key = arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 6) & "," & arr(i, 14)
   
7.         dic(Key) = dic(Key) + arr(i, 8)
   
8.         If Sheet3.[p5].Value = Val(dic(Key)) Then
   
9.             Sheet3.Cells(i, 13) = "END"
   
10.         End If
    
11.     Next
    
12. End Sub

复制代码

这样？？

feilanga

1. Sub bz1()
   
2.     arr = Sheet3.Range("A1:R" & Sheet3.Cells(Rows.Count, 1).End(xlUp).Row)
   
3.     Dim dic As Object
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     For i = 5 To UBound(arr)
   
6.         Key = arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 6) & "," & arr(i, 14)
   
7.         dic(Key) = dic(Key) + arr(i, 8)
   
8.     Next
   
9.     For i = 5 To UBound(arr)
   
10.         If arr(i, 16) <> "" Then
    
11.             Key = Val(arr(i, 16))
    
12.             If dic.Exists(Key) Then
    
13.                 Sheet3.Cells(i, 13) = "END"
    
14.             End If
    
15.         End If
    
16.     Next
    
17. End Sub
    
18. 唉，估计不对。。。

复制代码

高飞扬

feilanga 发表于 2023-7-19 11:56
这样？？

首先感谢老师的帮助！ 方向应该是对的，细节上有点问题还需要探讨下：
运行时，满足标注的结果不完全，例如示例表格中，只有黄色位置出现标注了，但是其他红色圈中位置（还有6处），按逻辑也应该需要进行标注的，但目前还没有识别到。如果示例可以实现，会将功能应用到另外一个表格ZSQ中，这时候有大批数据待处理（这时14列会有不同的订单号，对应不同的批号4/品名3/规格6/型号7）。参见图片及附件求解！


测试.zip (920.59 KB, 下载次数: 2)

2023-7-19 13:55 上传

点击文件名下载附件

高飞扬

高飞扬 发表于 2023-7-19 13:56
首先感谢老师的帮助！ 方向应该是对的，细节上有点问题还需要探讨下：
运行时，满足标注的结果不完全 ...

还未解决，继续求助！

feilanga

1. 
   

复制代码

逻辑可能写绕了，也不知道结果对不对

feilanga

按你颜色标注的位置来看的话，结果是对的

高飞扬

feilanga 发表于 2023-7-19 17:37
按你颜色标注的位置来看的话，结果是对的

初步测试过，看起来确实可以。明天再大批量的数据测试看看。非常感谢feilanga 老师！