根据户籍底册 重新根据户主排序家庭成员

豆芽扣扣

户籍底册 重新根据户主排序家庭成员

豆芽扣扣

最好以身份证号为引用，，数据量太大，户主的话有重名

约定的童话

Sub 排序()
    Dim i, n, arr, brr, crr
    arr = Sheet1.[a1].CurrentRegion
    brr = Sheet2.[a1].CurrentRegion
    ReDim crr(1 To UBound(arr), 1 To 4)
    For n = 2 To UBound(brr)
        For i = 2 To UBound(arr)
            If arr(i, 1) = brr(n, 1) Then
                c = c + 1
                For j = 1 To 3
                    crr(c, j) = arr(i, j + 1)
                Next
                crr(c, 4) = brr(n, 4)
            End If
        Next
    Next
    [h2].Resize(UBound(crr), 4) = crr
End Sub

豆芽扣扣

约定的童话 发表于 2020-10-15 10:08
Sub 排序()
    Dim i, n, arr, brr, crr
    arr = Sheet1.[a1].CurrentRegion

我需要公式涵数，这个太深奥了，，整不了

jisijie630

看一看，对不对？

jisijie630

jisijie630 发表于 2020-10-15 10:50
看一看，对不对？

D2=IFNA(VLOOKUP(A2,户主姓名!A:D,4,),"")

下拉。简化一下公式。

豆芽扣扣

jisijie630 发表于 2020-10-15 10:50
看一看，对不对？

对，是对，看不懂！我把我需要的数据全排列下面，每个表都排，最后效果表都变了！

豆芽扣扣

jisijie630 发表于 2020-10-15 10:50
看一看，对不对？

谢谢！！！

jisijie630

豆芽扣扣 发表于 2020-10-15 11:23
对，是对，看不懂！我把我需要的数据全排列下面，每个表都排，最后效果表都变了！

方便的话，发原件。

jisijie630

豆芽扣扣 发表于 2020-10-15 11:23
对，是对，看不懂！我把我需要的数据全排列下面，每个表都排，最后效果表都变了！

现在的公式人数不能超过1000人。