时间筛选

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 2 To UBound(arr)
   s = Split(arr(i, 1))(0)
   s1 = Split(arr(i, 1))(1)
   If Not d.exists(s) Then
      m = m + 1
      For j = 1 To UBound(arr, 2)
         brr(m, j) = arr(i, j)
      Next
      d(s) = m
   Else
      r = d(s)
      If Split(brr(r, 1))(1) < s1 Then
         For j = 1 To UBound(arr, 2)
            brr(r, j) = arr(i, j)
         Next
      End If
   End If
Next
[h2].Resize(m, UBound(brr, 2)) = brr
End Sub

博爱风雨同舟

=FILTER(A2:D26,FREQUENCY(-ROW(1:100)-0.9,-MATCH(MID(A2:A25,1,8),MID(A2:A25,1,8),)-MMULT(--MID(A2:A25,{1,10},{8,8}),{1;1})%%%%))
一步到位

mykitami

=REDUCE({"交易时间","借方发生额（支取）","贷方发生额（收入）","余额"},UNIQUE(LEFT(A2:A25,8)),LAMBDA(x,y,VSTACK(x,TAKE(FILTER(A2:D25,LEFT(A2:A25,8)=y),-1))))

你是那块小饼干

1. =LET(T,TEXTBEFORE(A2:A25," "),_T,UNIQUE(T),_X,TEXTAFTER(A2:A25," ")*1,REDUCE({"交易时间","借方发生额（支取）","贷方发生额（收入）","余额"},_T,LAMBDA(X,Y,VSTACK(X,FILTER(A2:D25,@SORT(FILTER(_X,Y=T,""),,-1)=_X,"")))))

复制代码

linsh7310

你是那块小饼干 发表于 2024-8-5 11:01