一个单据编号有多个配送方向，去重后确定唯一一个配送方向

荣儿112233

目标：确定单据编号对应的配送方向一个单据编号有多个配送方向，通过单位名称去重后，按照配送方向出现次数最多的确定为该单据编号的配送方向。

yaojil

不完全实现

荣儿112233

yaojil 发表于 2018-7-5 12:52
不完全实现

离我想达到的效果还有至少两步，能不能继续帮我优化呢？

lsdongjh

SQL+字典

1. Sub Test()
   
2.     Dim SH As Worksheet
   
3.     Dim lngRows As Long, intTypeNum As Integer
   
4.     Dim Conn As Object, Rst As Object, strPath As String
   
5.     Dim strConn As String, strSQL As String
   
6.     Dim rg As Range
   
7.     Dim objDic As Object
   
8. 
   
9.     Set SH = Sheets("Sheet1")
   
10. 
    
11.     lngRows = SH.Range("E" & Rows.Count).End(xlUp).Row
    
12.     If lngRows < 2 Then lngRows = 2
    
13.     Sheet1.Range("E2:F" & lngRows).ClearContents
    
14. 
    
15.     lngRows = SH.Range("A" & Rows.Count).End(xlUp).Row
    
16.     Set rg = SH.Range("E2")
    
17. 
    
18.     Set objDic = CreateObject("Scripting.Dictionary")
    
19.     Set Conn = CreateObject("ADODB.Connection")
    
20.     Set Rst = CreateObject("ADODB.Recordset")
    
21.     strPath = ThisWorkbook.FullName
    
22.     Select Case Application.Version * 1
    
23.         Case Is <= 11
    
24.             strConn = "Provider=Microsoft.Jet.Oledb.4.0;Extended Properties=excel 8.0;Data source=" & strPath
    
25.         Case Is >= 12
    
26.             strConn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strPath & ";Extended Properties=""Excel 12.0;HDR=YES"";"""
    
27.     End Select
    
28. 
    
29.     Conn.Open strConn
    
30. 
    
31.     '''''''''''''''''''''''''''''''''
    
32.     strSQL = "SELECT A.单据编号, A.配送方向, Count(A.配送方向) AS 计数 " & _
    
33.              "FROM (SELECT  单据编号,  配送方向 FROM [Sheet1$A1:C" & lngRows & "] GROUP BY  单据编号, 配送方向, 单位名称)  AS A " & _
    
34.              "GROUP BY A.单据编号, A.配送方向 " & _
    
35.              "ORDER BY A.单据编号, Count(A.配送方向);"
    
36. 
    
37.     Rst.Open strSQL, Conn, 3, 1
    
38.    
    
39.     If Rst.RecordCount > 0 Then
    
40.         Rst.moveFirst
    
41.         Do Until Rst.EOF
    
42.             objDic(Rst.Fields("单据编号").Value) = Rst.Fields("配送方向").Value & "(" & Rst.Fields("计数").Value & ")"
    
43.             Rst.moveNext
    
44.         Loop
    
45.         
    
46.         rg.Resize(objDic.Count, 1) = Application.WorksheetFunction.Transpose(objDic.keys)
    
47.         rg.Offset(, 1).Resize(objDic.Count, 1) = Application.WorksheetFunction.Transpose(objDic.items)
    
48.     End If
    
49. 
    
50.     Set Rst = Nothing
    
51.     Set Conn = Nothing
    
52. End Sub
    

复制代码

荣儿112233

lsdongjh 发表于 2018-7-5 16:21
SQL+字典

运行结果OK，感谢大神！能否帮忙注释一下，新手有很多句子看不懂

荣儿112233

yaojil 发表于 2018-7-5 12:52
不完全实现

我自己又加了一步，加上你提供的方法，已经可以运行实现啦

lsdongjh

荣儿112233 发表于 2018-7-5 17:39
运行结果OK，感谢大神！能否帮忙注释一下，新手有很多句子看不懂

SQL 语句能看懂的话，就全部明白了

lenghonghai601

1. 留个记号，厉害。

复制代码