按条件取应付货款最早应付的一笔款和他所属的账期

tlldld

mykitami 发表于 2024-6-21 14:51
=LET(a,FILTER(HSTACK(E2:E9999,I2:I9999,L2:L9999),L2:L99990),REDUCE(A1:C1,UNIQUE(TAKE(a,,1)),LAMBDA(x ...

不行，最新WPS用不了！

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [e1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   s = arr(i, 1)
   If arr(i, 8) > 0 Then
      If Not d.exists(s) Then
         d(s) = i
      Else
         r = d(s)
         If arr(r, 5) > arr(i, 5) Then
            d(s) = i
         End If
      End If
   End If
Next
brr = [a1].CurrentRegion
For i = 2 To UBound(brr)
   s = brr(i, 1)
   If d.exists(s) Then
      brr(i, 2) = arr(d(s), 5)
      brr(i, 3) = arr(d(s), 8)
   Else
      brr(i, 2) = ""
      brr(i, 3) = ""
   End If
Next
[a1].CurrentRegion = brr
End Sub

tlldld

zhangcheng6688 发表于 2024-6-21 14:54
学习一下字典，打扰了
Sub test()
arr = [e1].CurrentRegion

原谅我大哥，我看不懂！

zhangcheng6688

tlldld 发表于 2024-6-21 14:55
原谅我大哥，我看不懂！

没事，我是借个楼学习一下

mykitami

tlldld 发表于 2024-6-21 14:52
不行，最新WPS用不了！

听说最新版的WPS已经支持let、reduce、lambda这些函数了吗？

这也就是我为什么一直坚持用M365 的原因，在M365上写好的公式有时到WPS上常出问题