未交(完)订单编号

brdsz

目的：
1、利用公式或代码获取“未交(完)订单编号”，并且不能有重复号。
2、需要2种算法，是想放到实际表格中，看看哪种算法快
条件：
1、数据有几千行甚至上万行，并且每天都会有大量新增或更新
2、这一行是隐藏的辅助列，出库单需要引用

未交(完)订单编号.rar (8.19 KB, 下载次数: 14)

2018-8-21 15:29 上传

点击文件名下载附件

ykqrs

代码

1. Sub qq()
   
2. Dim d, arr, r%, i%
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. r = Cells(Rows.Count, 1).End(xlUp).Row
   
5. arr = Range("a4:f" & r)
   
6. For i = 1 To UBound(arr)
   
7. If arr(i, 6) Then d(arr(i, 1)) = ""
   
8. Next
   
9. Columns("j") = ""
   
10. [j4].Resize(d.Count) = Application.Transpose(d.keys)
    
11. End Sub

复制代码

brdsz

ykqrs 发表于 2018-8-21 15:51
代码

谢谢，可以用

navming

如果你的订单号是纯数字(如同你上传的表)，可以选用公式=IFERROR(SMALL(IF($F$4:$F$35>0,$A$4:$A$35),ROW(H1)),"")数组，ctrl+shift+enter。
范围自己扩大。

brdsz

navming 发表于 2018-8-21 16:27
如果你的订单号是纯数字(如同你上传的表)，可以选用公式=IFERROR(SMALL(IF($F$4:$F$35>0,$A$4:$A$35),ROW(H ...

公式中包含不可识别的文本