VBA 重新合并求SQL，首发给出答案正确采纳发烟一包！

wfywc81

按照z865593849的一行代码对我的代码进行了优化，普适性会更强，数据量大也可以适用，非常非常爽。详见附件。

咸味

cui26896 发表于 2023-5-14 16:11
你的表做得非常不合理，如果你按我的这个来修改，会更方便些。

源表是子查询做出来的！

WANT-T

这个需求，如果硬要用SQL来处理的话，我的解决方案是这样的：
1、代码：

1. Sub SQL合并()
   
2.     Dim Ado As Object
   
3.     Dim conString As String
   
4.     Dim SQL1 As String, SQL2 As String, SQL3 As String, SQL As String
   
5.     Dim 数据库文件路径 As String
   
6.     数据库文件路径 = ThisWorkbook.FullName
   
7.    
   
8.     If Application.Version >= 11 Then
   
9.         conString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & 数据库文件路径 & ";Extended Properties=""Excel 12.0;HDR=YES"";"
   
10.     Else
    
11.         conString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 数据库文件路径 & ";Extended Properties=""Excel 8.0;HDR=YES"";"
    
12.     End If
    
13.     Set Ado = CreateObject("Adodb.Connection")
    
14.     Ado.Open conString
    
15.     If Ado.State = 1 Then
    
16.         Debug.Print "测试链接成功！"
    
17.     Else
    
18.         Debug.Print "测试链接失败！"
    
19.     End If
    
20.     SQL1 = "SELECT 年份,季节,店仓,款号,颜色,S,M,L ,XL ,XXL ,A,B ,FF" & _
    
21.             " FROM [源$A1:M] WHERE 年份 <> ''"
    
22.    
    
23.     SQL2 = "SELECT 年份,季节,店仓,款号,颜色,S,M,L ,XL ,XXL ,A,B ,FF" & _
    
24.             " FROM [源$N1:Z] WHERE 年份 <> ''"
    
25.    
    
26.     SQL3 = SQL1 & " UNION ALL " & SQL2
    
27.     SQL3 = "SELECT DISTINCT 年份,季节,店仓,款号,颜色 FROM (" & SQL3 & ")"
    
28.    
    
29.     SQL = "SELECT A.年份,A.季节,A.店仓,A.款号,A.颜色,B.S,B.M,B.L ,B.XL ,B.XXL ,B.A,B.B ,B.FF " & _
    
30.             "FROM (" & SQL3 & ") A " & _
    
31.             "LEFT JOIN (" & SQL1 & ") B " & _
    
32.             "On A.年份=b.年份 AND A.季节= B.季节 AND A.店仓=B.店仓 AND A.款号=B.款号 AND A.颜色=B.颜色"
    
33.    
    
34.     SQL = "SELECT A.年份,A.季节,A.店仓,A.款号,A.颜色,A.S,A.M,A.L ,A.XL ,A.XXL ,A.A,A.B ,A.FF,B.S,B.M,B.L ,B.XL ,B.XXL ,B.A,B.B ,B.FF " & _
    
35.             "FROM (" & SQL & ") A " & _
    
36.             "LEFT JOIN (" & SQL2 & ") B " & _
    
37.             "On A.年份=b.年份 AND A.季节= B.季节 AND A.店仓=B.店仓 AND A.款号=B.款号 AND A.颜色=B.颜色"
    
38.    
    
39.     With ThisWorkbook.Worksheets("模拟结果")
    
40.         .UsedRange.Offset(1).Clear
    
41.         .Range("A2").CopyFromRecordset Ado.Execute(SQL)
    
42.     End With
    
43.     Ado.Close
    
44. End Sub
    

复制代码

2.注意事项：需要将数据源处理一下,
表头要统一，且删除没有用的字符，如 "T1." 和 "T2."；
统一格式，统计维度，即源里，标黄的部分要全部转换成文本格式，分列处理一下即可；
3.模拟结果如下：默认排序

4.附件在这里：
SQL合并.rar (20 KB, 下载次数: 6)

2023-5-14 22:27 上传

点击文件名下载附件

最后，祝您生活愉快,推荐使用alipay

grf1973

关键之处在于合并表格取相同表头。用ff是简单的做法，可以用个数组存表头，用循环取表头。

咸味

WANT-T 发表于 2023-5-14 22:29
这个需求，如果硬要用SQL来处理的话，我的解决方案是这样的：
1、代码：
2.注意事项：需要将数据源处理一 ...

前面几个老师他们已给出答案！不过您办法也是可行的！不要介意就发个包意思吧！

咸味

再次感谢各位老师关注！在此楼封贴！

cui26896

咸味 发表于 2023-5-14 18:54
源表是子查询做出来的！

子查询就更没有道理了，明明是一样的表的结构，非要弄成不同的字段名，字段名中还有保留字“."!很多时候，看提问题的，本身表的结构就很不好，所以给后期做代码带来很大的不便！