复杂状况，满足多条件后并对不同列的数据进行比对判断

sunnyliner2018

各位老师：

  我遇到了一个比较复杂状况，需要满足多条件后再对不同列的数据进行比对判断。
我自已经尝试过根据条件写，但是执行效果都不符合。
烦请各位老师帮忙看看
谢谢！



符合条件：A列【过帐日期】& C列【库存地点】& P列【项目】& E列【收货库存地点】为空
第一种情况：如果D列【移动类型】是101，同列存在【移动类型】是261时,它们对应F列的【物料凭证】往前递增1时；
第二种情况：如果D列【移动类型】是261，同列存在【移动类型】是531时,它们对应F列的【物料凭证】往前递增1时；

则在R列备注栏提取C列的物料：C列10位字符【物料】& "开料" C列7位字符【物料】


图片Q列是需要实现的结果

liushi130

没看明白你的需求

582766

看不懂什么意思

sunnyliner2018

582766 发表于 2023-2-7 15:01
看不懂什么意思

请问您是哪里看不懂？

sunnyliner2018

liushi130 发表于 2023-2-7 13:43
没看明白你的需求

就是说必须是日期、库存地点、项目条件一致的情况下，判断同列既有101也有261，凭证符号依次递增的条件。

解0人

1. Sub test()
   
2. Dim arr, i
   
3.     j = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
   
4.     Range("A2:R" & j).Sort key1:=[A2], key2:=[C2], key3:=[P2], Header:=xlYes
   
5.     arr = Range("A2:R" & j)
   
6. 
   
7.     For i = 3 To UBound(arr)
   
8.         If arr(i, 5) = "" And arr(i, 16) <> "" Then
   
9.             If arr(i, 1) = arr(i - 1, 1) And arr(i, 3) = arr(i - 1, 3) And arr(i, 16) = arr(i - 1, 16) And _
   
10.                 arr(i, 6) = arr(i - 1, 6) + 1 And (arr(i, 4) = 261 And arr(i - 1, 4) = 101 Or arr(i, 4) = 531 And arr(i - 1, 4) = 261) Then
    
11.                 If Len(arr(i, 2)) = 10 Then
    
12.                     arr(i, 18) = arr(i, 2) & "开料" & arr(i - 1, 2)
    
13.                 Else
    
14.                     arr(i, 18) = arr(i - 1, 2) & "开料" & arr(i, 2)
    
15.                 End If
    
16.                 arr(i - 1, 18) = arr(i, 18)
    
17.             End If
    
18.         End If
    
19.     Next
    
20.     Range("A2:R" & j) = arr
    
21. End Sub

复制代码

sunnyliner2018

解0人 发表于 2023-2-7 15:21

谢谢老师，给了我思路，因为数据量非常大，是否有用字典解决的方法