未交(完)订单编号

brdsz

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

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

2018-8-20 17:59 上传

点击文件名下载附件

jnsxmt

1. Option Explicit
   
2. 
   
3. Sub test()
   
4.     Dim ar, m&, n&, k&, d
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     ar = Intersect(Range("a1").CurrentRegion, Range("a1").CurrentRegion.Offset(1, 0))
   
7.     For m = LBound(ar, 1) To UBound(ar, 1)
   
8.         If ar(m, 6) > 0 Then
   
9.             d(ar(m, 1)) = ""
   
10.         End If
    
11.     Next
    
12.     [j2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
13. End Sub

复制代码

iwangyi

Sub CC()
Set CN = CreateObject("adodb.connection")
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "SELECT distinct 订单编号 FROM [SHEET1$A1:F] WHERE 未交数<>0"
[J2].CopyFromRecordset CN.Execute(Sql)
End Sub

iwangyi

非遍历法附件

brdsz

iwangyi 发表于 2018-8-20 19:28
Sub CC()
Set CN = CreateObject("adodb.connection")
CN.Open "provider=microsoft.jet.oledb.4.0;exten ...

非常感谢，不知道什么问题，在这个模拟表格中运行没有问题。但放到实际表格中出现自动化错误，不知道什么原因。实际表格中有大量的公式和代码。

iwangyi

你实际表中字段名与SQL中字段名不一样，仔细对比检查

brdsz

iwangyi 发表于 2018-8-21 11:57
你实际表中字段名与SQL中字段名不一样，仔细对比检查

字段都一样，只是字段在第三行：
Sub CC()
Set CN = CreateObject("adodb.connection")
CN.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "SELECT distinct 订单编号 FROM [SHEET13$A3:L] WHERE 未交数<>0"
[U4].CopyFromRecordset CN.Execute(Sql)
End Sub

iwangyi

改过后码没问题

brdsz

iwangyi 发表于 2018-8-21 15:05
改过后码没问题

sql不懂，是不是与其他代码或公式有冲突。因为我把样表改成实际表格一样的也没有问题