求问下如何根据特定条件提取表格数据

瞬息人间

各位大佬好，因为每天要处理大量原始数据，原始表格数据无法使用“筛选”“排序”“剔除重复”，只能靠各位函数救命了。

魚。。

F12公式：
=MINIFS(A:A,B:B,LEFT(E12,2))

G12公式：
=MAXIFS(A:A,B:B,LEFT(E12,2))

H12数组公式：
=TEXTJOIN("、",,FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(B$2:B$520=LEFT(E12,2),C$2:C$520&"",""),"未知",),"支付宝",),"微信",))&"</b></a>","//b[not(preceding::*=.)]"))


所有公式下拉填充

魚。。

F12公式：
=MINIFS(A:A,B:B,LEFT(E12,2))

G12公式：
=MAXIFS(A:A,B:B,LEFT(E12,2))

H12数组公式：
=TEXTJOIN("、",,FILTERXML("<a><b>"&TEXTJOIN("</b><b>",,SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(B$2:B$520=LEFT(E12,2),C$2:C$520&"",""),"未知",),"支付宝",),"微信",))&"</b></a>","//b[not(preceding::*=.)]"))

所有公式下拉填充

魚。。

额，提交重复了，我还以为没提交上，原来进审核去了

瞬息人间

魚。。 发表于 2020-12-10 21:35
额，提交重复了，我还以为没提交上，原来进审核去了

大佬没看到你发的贴。其实这个表格需要编3个公式(收到/付出最早日期、收到/付出最后的日期、收到/付出姓名列出并不重复)，比较复杂，一下自己编不出来

624134745

瞬息人间 发表于 2020-12-10 21:59
大佬没看到你发的贴。其实这个表格需要编3个公式(收到/付出最早日期、收到/付出最后的日期、收到/付出姓 ...

因为他的回复涉及了ZFB，被审核了，没那么快的

瞬息人间

624134745 发表于 2020-12-10 22:01
因为他的回复涉及了ZFB，被审核了，没那么快的

噢，明白了，表格重复名字剔除一个“未知”也行，剩下的我应该能根据公式继续编下去。

624134745

瞬息人间 发表于 2020-12-10 22:13
噢，明白了，表格重复名字剔除一个“未知”也行，剩下的我应该能根据公式继续编下去。
...

等明天应该就能看到了。

zpy2

select 存取||'日期',min(日期) 开始时间,max(日期) 结束时间,group_concat(姓名) from 日期存取姓名明细表 group by 存取

cjc209

vba方法
Sub 过程()
    Dim brr
    Set d = CreateObject("Scripting.Dictionary")
    arr = Range("a2:c" & Range("A" & Rows.Count).End(xlUp).Row)
    ReDim brr(1 To 1, 1 To 3)
    For r = 1 To UBound(arr, 1)
        关键字 = arr(r, 2)
        If Not d.Exists(关键字) Then
            brr(1, 1) = Split(arr(r, 1), " ")(0)
            If Len(arr(r, 3)) > 0 Then brr(1, 3) = arr(r, 3)
            d(关键字) = brr
        Else
            brr = d(关键字)
            brr(1, 2) = Split(arr(r, 1), " ")(0)
            If Len(arr(r, 3)) > 0 Then brr(1, 3) = brr(1, 3) & "、" & arr(r, 3)
            d(关键字) = brr
        End If
    Next r
    For Each Key In d.keys
        [e12].Offset(m).Resize(1, 3) = Key
        m = m + 1
    Next
    For Each Key In d.items
        [f12].Offset(k).Resize(1, 3) = Key
        k = k + 1
    Next
End Sub