将表一同一姓名的客户信息提取到表二

你家柱子哥

如下图，我想将表一中的【张三】的账目信息提取到表二中，因为这个是流水信息，有很多数据，而且随时会更新，能不能用什么方法，让我在表一中不断录入信息的时候，能单独提取【张三】的信息到表二中。谢谢各位大神。

约定的童话

Sub 提取()
    Dim i, n, arr, brr()
    n = 1
    arr = [a1].CurrentRegion
    ReDim brr(1 To UBound(arr), 1 To 5)
    For i = 2 To UBound(arr)
        If arr(i, 1) = "张三" Then
            For j = 1 To 5
                brr(n, j) = arr(i, j)
            Next
            n = n + 1
        End If
    Next
    Sheets("表二").Range("a" & Sheets("表二").Range("a65536").End(3).Row + 1).Resize(UBound(brr), 5) = brr
End Sub

你家柱子哥

有函数的方法吗？

你家柱子哥

约定的童话 发表于 2019-6-14 19:01
Sub 提取()
    Dim i, n, arr, brr()
    n = 1

不过发现一个问题，多次点击会不断地重复提取数据，点一次就重复提取一次，比如有三条信息，提取两次就变成了6条。

约定的童话

你家柱子哥 发表于 2019-6-15 08:29
不过发现一个问题，多次点击会不断地重复提取数据，点一次就重复提取一次，比如有三条信息，提取两次就变 ...

玄机在最后一行代码那里，稍加研究即可突破

sishuiren

表二A2数组输入
=IFERROR(INDEX(表一!$A$2:$E$100,SMALL(IF(表一!$A$2:$A$100="张三",ROW(表一!$A$2:$A$100)-1,2^20),ROW(A1)),MATCH(表二!A$1,表一!$A$1:$E$1,0)),"")
向下向右填充

tony@cq

函数公式不好，因为数据增多，还要不停地往下拉，少了没出来，多了又浪费。
用PQ生成的数据，无论你有多少，只是点下“数据刷新“就一个不少，一个不多。

你家柱子哥

sishuiren 发表于 2019-6-15 20:26
表二A2数组输入
=IFERROR(INDEX(表一!$A$2:$E$100,SMALL(IF(表一!$A$2:$A$100="张三",ROW(表一!$A$2:$A$10 ...

大神，这个只显示正误而已，搞不定呀。

你家柱子哥

tony@cq 发表于 2019-6-15 20:46
函数公式不好，因为数据增多，还要不停地往下拉，少了没出来，多了又浪费。
用PQ生成的数据，无论你有多少 ...

厉害哈，试了一下挺好。

sj15627581616

不会大佬们高大尚的操作，根据公式下拉更新即可，更新完毕记得升序处理就好，只会这种操作了