比较麻烦的一个例子，不会做，请老师们帮忙解决一下。

sypnksss

比较麻烦的一个例子，不会做，请老师们帮忙解决一下


Sheet2  :     cSNDefine9  号码（W列）     ,  cSNDefine3 发货日期（Q列） ，cSNDefine4   出货客户（R列）   ，cInvCode 物料编码 （B列）

-------------------------------------------------------------------------------
需求看着是比较多，其实是我想表达得更清楚点，好让老师们能理解到位。
就是，根据sheet1的A列数据为条件，sheet2里的数据，详细条件为：

Sheet1   C  列获取数据的条件为   ：
cInvCode 物料编码   前三位 等于   '601'    且       cSNDefine9  号码   不为空    且    同一    cSNDefine9  号码  取最大   cSNDefine3 发货日期
然后  对应  Sheet1    的 A列（号码）为条件，把   Sheet2  筛选过的数据中的    cSNDefine4   出货客户（R列）     对应填到  Sheet1    的 C列。

Sheet1   D  列获取数据的条件为   ：
cInvCode 物料编码   前三位 不等于   '601'    且       cSNDefine9  号码   不为空    且    cSNDefine4   出货客户（R列）     不等于  '形态转换' "   
然后  对应  Sheet1    的 A列（号码）为条件，把   Sheet2  筛选过的数据中的    cSNDefine4   出货客户（R列）     对应填到  Sheet1    的 D列。

Sheet1    B列  =   如果C ，D列都有数据，不管C，D列数据是否一致，都取C列，如果C列数据为空，则取D列



原数据太多，10几万条，打包后太大传不上来，我删掉了一部分。附件： 对应客户查询1.rar (1.48 MB, 下载次数: 2)

2024-8-13 10:58 上传

点击文件名下载附件

已更新

limonet

关键字：left join，可惜了好好的中文，本不想回。

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$, StrSQL0$, StrSQL1$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL0 = "Select 号码 From [Sheet1$A:A] Group By 号码"
    StrSQL = "Select cSNDefine4,cSNDefine3,cSNDefine9 From [Sheet2$] Where [cInvCode] Like '601%' And [cSNDefine9]<>''"
    StrSQL = "Select First(cSNDefine4) As D4,Max(cSNDefine3) As D3,cSNDefine9 From (" & StrSQL & ") Group By cSNDefine9"
    StrSQL = "Select 号码,D4 From (" & StrSQL0 & ")a Left Join (" & StrSQL & ")b On a.号码=b.cSNDefine9"
    StrSQL1 = "Select cSNDefine4,cSNDefine9 From [Sheet2$] Where [cInvCode] Like '601%' And [cSNDefine9]<>'' And [cSNDefine4]<>'形态转换'"
    StrSQL1 = "Select 号码,cSNDefine4 From (" & StrSQL0 & ")a Left Join (" & StrSQL1 & ")b On a.号码=b.cSNDefine9"
    StrSQL = "Select a.号码,IIF(D4 is Null,cSNDefine4,D4),D4,cSNDefine4 From (" & StrSQL & ")a Left Join (" & StrSQL1 & ")b On a.号码=b.号码"
    Range("A2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

ykcbf1100

需求看半天

汉唐

试着理解做一下

sypnksss

ykcbf1100 发表于 2024-8-12 20:02
需求看半天

对应客户查询1.rar (1.48 MB, 下载次数: 4)

2024-8-13 10:59 上传

点击文件名下载附件

已更新对应的，相比更好看明白，老师抽空帮忙看一下，谢谢

sypnksss

汉唐 发表于 2024-8-13 08:27
试着理解做一下

对应客户查询1.rar (1.48 MB, 下载次数: 5)

2024-8-13 11:00 上传

点击文件名下载附件

十分感谢，其中之前有个条件错了一个，还是感谢您的帮忙。已更新附件

汉唐

按你的要求重新写了一个，供参考

sypnksss

汉唐 发表于 2024-8-13 14:10
按你的要求重新写了一个，供参考

十分感谢，结果有点不对，可能是条件多了我表达的不够明确。不折腾了，我用  limonet 老师的SQL版本吧，还是十分感谢您的辛勤付出。