[已解决]把表一按表2的顺序把户主及家庭成员列出来

2014新手

最后排序顺序

冠军欧洲2010

1. Sub A()
   
2.     On Error Resume Next
   
3.     Range("A1").Resize(1, 4).Copy Range("E1")
   
4.     Dim ARR, X, Y, N, I
   
5.     ARR = Sheets("表2").Range("A2:D" & Sheets("表2").Cells(Rows.Count, "D").End(3).Row)
   
6.     For X = 1 To UBound(ARR)
   
7.         N = Application.WorksheetFunction.Match(ARR(X, 3), Range("D2:D14"), 0) + 1
   
8.         For Y = N To Sheets("表1").Cells(Rows.Count, "D").End(3).Row
   
9.             I = I + 1
   
10.             Cells(I + 1, "E") = Cells(Y, "A")
    
11.             Cells(I + 1, "F") = Cells(Y, "B")
    
12.             Cells(I + 1, "G") = Cells(Y, "C")
    
13.             Cells(I + 1, "H") = Cells(Y, "D")
    
14.             Cells(I + 1, "I") = "户主" & Cells(N, "D")
    
15.             If Cells(Y + 1, 1) <> "" Then Exit For
    
16.         Next
    
17.     Next
    
18. End Sub

复制代码

2014新手

不行啊，弄不出宏来

2014新手

liu398214264 发表于 2014-2-12 11:57
如果表一中每个户主都对应有序号的话就很好办，直接用vlookup函数就可以。如果没有对应序号就在序号列用l ...

还是弄不好啊

liu398214264

2014新手 发表于 2014-2-12 14:37
还是弄不好啊

你先说表1中户主前面是不是都有不同的序号？是的话发到我邮箱liu398214264@163.com

2014新手

liu398214264 发表于 2014-2-12 15:28
你先说表1中户主前面是不是都有不同的序号？是的话发到我邮箱

有序号

liu398214264

看看行不行

2014新手

不好意思，看不懂啊

baksy

复制以下表格。
其中，A~E列是基础数据，G~J列是楼主的筛选条件，L~O列是公式结果。
L2=IF(ROW()=2,1,IF(SUM(COUNTIF($E$2:$E$14,$J$2:INDIRECT("J"&COUNT($L$1:L1)+1)))=ROW()-2,MAX($L$1:L1)+1,""))
M2=INDEX($B$1:$B$14,MATCH(O2,$E$1:$E$14,0)+COUNTIF($O$1:O1,O2))
N2=INDEX($D$1:$D$14,MATCH(O2,$E$1:$E$14,0)+COUNTIF($O$1:O1,O2))
O2=IF(L2<>"",VLOOKUP(L2,$G$2:$J$5,4,0),IF(COUNTIF($E$2:$E$14,O1)=COUNTIF($O$1:O1,O1),"",O1))
其中L2是数组公式，三键回车。

序号

家庭

身份证号

姓名

序号

家庭

姓名

序号

家庭

姓名

1

户主

22010600000333

王一

户主王一

1

户主

王一

户主王一

1

户主

王一

户主王一

第一成员

张明

户主王一

2

户主

洪红

户主洪红

第一成员

张明

户主王一

第二成员

黎明

户主王一

3

户主

李立

户主李立

第二成员

黎明

户主王一

2

户主

22010600000338

李恒

户主李恒

4

户主

李恒

户主李恒

2

户主

洪红

户主洪红

第一成员

芳芳

户主李恒

第一成员

张晓

户主洪红

第二成员

白华

户主李恒

第二成员

王方

户主洪红

第三成员

陈一

户主李恒

3

户主

李立

户主李立

3

户主

22010600000327

洪红

户主洪红

第一成员

李华

户主李立

第一成员

张晓

户主洪红

第二成员

刘明

户主李立

第二成员

王方

户主洪红

4

户主

李恒

户主李恒

4

户主

22010600000384

李立

户主李立

第一成员

芳芳

户主李恒

第一成员

李华

户主李立

第二成员

白华

户主李恒

第二成员

刘明

户主李立

第三成员

陈一

户主李恒

2014新手

baksy 发表于 2014-2-13 13:17
复制以下表格。
其中，A~E列是基础数据，G~J列是楼主的筛选条件，L~O列是公式结果。
L2=IF(ROW()=2,1,IF( ...

已经解决了，谢谢了