2万多条销售记录，怎么能快速查找想要的产品销售记录呢

玥儿妈妈

有2万多条不同步产品的销售记录，怎么能快速整理出来所有的产品名称对应的最后一次的销售记录呢？？？


在线等，球球小哥哥小姐姐帮帮忙，不然今晚就不要睡觉了，，，加班也整理不出来呀

fyure

。。。。。。

ggmmlol

Sub test()
arr = Sheet1.Range("A1").CurrentRegion
Set dic = CreateObject("Scripting.dictionary")
For i = 1 To UBound(arr)
    dic(arr(i, 2)) = i
Next
itm = dic.items
cc = UBound(arr, 2)
Set dic = Nothing
For i = 0 To UBound(itm) '
    p = itm(i)
    n = n + 1
    For j = 1 To cc
        arr(n, j) = arr(p, j)
    Next
Next
With Sheet2.Range("A1").Resize(n, cc)
    .Resize(, 1).NumberFormat = "@"
    .Value = arr
    .Borders.LineStyle = 1
    Application.Goto .Cells(1)
End With
End Sub

zpy2

10点还在上班，要早点休息啊

fxl447098457

结果放在Sheet2工作表里。
Sub test()
Dim strSQL As String, Cnnect As String, adoRs As Object
Set adoRs = CreateObject("ADODB.Recordset")
Cnnect = "Provider=Microsoft.ace.oledb.12.0;extended properties=excel 12.0;data source=" & ThisWorkbook.FullName
strSQL = "select last(购货单号),last(货品编码),last(货品名称),last(规格),last(花色),last(数量),last(单位),last(单价)," _
& "last(金额),last(折后金额),last(应收金额),last(折上折),last(套餐),last(月份) from [Sheet1$A1:N" & Sheets("Sheet1").[a1].CurrentRegion.Rows.Count & "] group by 货品名称"
adoRs.Open strSQL, Cnnect, 1, 3
With Sheets("Sheet2")
If Not IsEmpty(.UsedRange) Then .UsedRange.ClearContents
.[A1:N1].Value = Sheets("Sheet1").[A1:N1].Value
.[A2].CopyFromRecordset adoRs
End With
adoRs.Close
Set adoRs = Nothing
End Sub

少少飞翔

看下是不是这样的

LMY123

字典和ado查询尾记录

ynymzzr

ggmmlol,你好，如果上述附件中最后一条记录有n条，如何修改参数