请问：对同一客户，如何根据时间顺序，保留客户的最后一次消费记录，其余的在A列显...

ycggm

请问：对同一客户，如何根据时间顺序，保留客户的最后一次消费记录，其余的在A列显...

leepoison

=DROP(REDUCE("",UNIQUE(B2:B15),LAMBDA(x,y,VSTACK(x,VSTACK(TAKE(FILTER(SORT(B2:D15,2),CHOOSECOLS(SORT(B2:D15,2),1)=y),-1))))),1)

ycggm

leepoison 发表于 2024-9-30 15:50
=DROP(REDUCE("",UNIQUE(B2:B15),LAMBDA(x,y,VSTACK(x,VSTACK(TAKE(FILTER(SORT(B2:D15,2),CHOOSECOLS(SORT ...

这个B15后面的15是目前表格的记录数，如果我每次都不是15条记录，每次都有变化，怎么实现让15这个数字自动变化？

浮生若梦~~~

=REDUCE(B1:D1,UNIQUE(B2:B15),LAMBDA(x,y,LET(a,SORT(B2:D15,{1,2}),VSTACK(x,HSTACK(y,XLOOKUP(y,TAKE(a,,1),DROP(a,,1),,,-1))))))

leepoison

ycggm 发表于 2024-9-30 08:25
这个B15后面的15是目前表格的记录数，如果我每次都不是15条记录，每次都有变化，怎么实现让15这个数字自 ...

直接往下改B2:B100    B2:D100
=DROP(REDUCE("",UNIQUE(B2:B15),LAMBDA(x,y,VSTACK(x,VSTACK(TAKE(FILTER(SORT(B2:D15,2),CHOOSECOLS(SORT(B2:D15,2),1)=y),-1))))),1)

mykitami

=LET(a,DATE(RIGHT(C2,4),LEFT(C2,2),MID(C2,4,2)),b,DATE(RIGHT($C$2:$C$15,4),LEFT($C$2:$C$15,2),MID($C$2:$C$15,4,2)),IF(a=TAKE(SORT(FILTER(b,$B$2:$B$15=B2)),-1),"保留","删除"))

ericxzhou

Python+Pandas:
import pandas as pd

df = pd.read_excel('pandas exercise/sample465.xlsx', usecols='b:d', parse_dates=[1])
df.sort_values(['业务号码', '消费时间']).groupby('业务号码').last()

风中的我脸

1. =LET(
   
2.     data, B1:D15,
   
3.     list, VSTACK("消费时间", MAP(DROP(CHOOSECOLS(data, 2), 1), LAMBDA(a, --TEXTJOIN("-", 1, INDEX(TEXTSPLIT(a, "-"), {3, 1, 2}))))),
   
4.     lastdate, GROUPBY(CHOOSECOLS(data, 1), list, MAX, 3, 0),
   
5.     filtertemp, MAP(SEQUENCE(ROWS(list)), LAMBDA(a, INDEX(list, a) = VLOOKUP(INDEX(data, a, 1), lastdate, 2, ))),
   
6.     FILTER(data, filtertemp)
   
7. )

复制代码

1. =LET(
   
2.     listsort,VSTACK(B1:D1,SORT(B2:D15,2,1)),
   
3.     res,GROUPBY(TAKE(listsort,,1),TAKE(listsort,,-2),LAMBDA(x,@TAKE(x,1)),3,0),
   
4.     res
   
5. 
   
6. )

复制代码

zhangcheng6688

学习一下字典
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 3)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 2)) Then
      d(arr(i, 2)) = i
   Else
      If arr(d(arr(i, 2)), 3) < arr(i, 3) Then
         d(arr(i, 2)) = i
      End If
   End If
Next
For Each kk In d.keys
   m = m + 1
   For i = 1 To 3
      brr(m, i) = arr(d(kk), i + 1)
   Next
Next
[f2].Resize(m, 3) = brr
End Sub

你是那块小饼干

=LET(T,B2:B15,_T,UNIQUE(T),REDUCE({"业务号码","消费时间","购买商品"},_T,LAMBDA(X,Y,VSTACK(X,TAKE(SORT(FILTER(B2:D15,Y=T,""),2,-1),1)))))