多条件获取最后一次记录结算价

山城子

如果《销销售记录》中的  “店铺名称&款式编号&色名”与《发退货记录》中的“店铺名称&款式编号&色名”相同，
且 《发货记录》合计 数量大于0，
则把《发退货记录》表中 日期小于《销售记录》入账日期的最后一次发货价写到《销售记录表》对应的最后一次发货价AC列中 求助.zip (88.13 KB, 下载次数: 17)

2024-8-20 13:52 上传

点击文件名下载附件

limonet

解释或样例：把《发退货记录》表中 日期小于《销售记录》入账日期的最后一次发货价写到《销售记录表》对应的最后一次发货价

小凡、、、

按这个思路，写公式的难度应该比写代码小

山城子

limonet 发表于 2024-8-20 14:25
解释或样例：把《发退货记录》表中 日期小于《销售记录》入账日期的最后一次发货价写到《销售记录表》对应 ...

不好意思可能我没描述清除，你看这图片是否能理解

山城子

小凡、、、 发表于 2024-8-20 14:27
按这个思路，写公式的难度应该比写代码小

是的，但有30万条的数据，有公式表很卡

usedrange

猜的，不知道对不对

1. Sub tt()
   
2.     Dim ar, br, i%, j%, s$, s2$
   
3.     With Sheets("发退货记录")
   
4.         ar = .Range("f1:ab" & .[f1].End(4).Row)
   
5.     End With
   
6.     With Sheets("销售记录")
   
7.         .Range("ac2:ac1048576") = ""
   
8.         br = .Range("f1:ac" & .[f1].End(4).Row)
   
9.         For i = 2 To UBound(br)
   
10.             s = br(i, 3) & br(i, 9) & br(i, 11)
    
11.             For j = 2 To UBound(ar)
    
12.                 s2 = ar(j, 3) & ar(j, 9) & ar(j, 11)
    
13.                 If s = s2 And ar(j, 23) > 0 Then
    
14.                     If ar(j, 1) < br(i, 1) Then
    
15.                         .Cells(i, "ac") = ar(j, 12)
    
16.                     End If
    
17.                 End If
    
18.             Next j
    
19.         Next i
    
20.     End With
    
21. End Sub
    

复制代码

小凡、、、

山城子 发表于 2024-8-20 14:52
是的，但有30万条的数据，有公式表很卡

数据量特别大的话，可能需要排序记录表数组，插入式查询可以规避不少循环，运行效率会高一些

limonet

group by +out join

limonet

Sub limonet()
    Dim Cn As Object, StrSQL$
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
    StrSQL = "Select 客户店名称 as 店铺名称,款式编号,色名,Last(结算价) As 结算价 From [发退货记录$F:AB] Where 总计>0 Group By 客户店名称,款式编号,色名"
    StrSQL = "Select 结算价 From [销售记录$H:P]a Left Join (" & StrSQL & ")b On a.店铺名称&a.款式编号&a.色名=b.店铺名称&b.款式编号&b.色名"
    Range("AC2").CopyFromRecordset Cn.Execute(StrSQL)
End Sub

扇扇扇

重在参与一下