如我下图所示，在D2单元格输入公式=IF(COUNTIF($C2:C2,"户主")<2,IFERROR(OFFSET(INDIRECT("A"&SMALL(IF($A$2:$A$1000="户主",ROW($2:$1000)),ROW(A1))),INT(COLUMN(B1)/2)-1,MOD(COLUMN(B2),2),)&"",""),"")
数组公式，同时按Ctrl+Shift+回车键结束公式，使公式前后产生大括号{}后，下拉至空白单元格出现，再右拉至空白单元格出现止。
（这时可见：每户最后一格多出一格户主二字，暂时没本事去除，可采取将公式转换后的数据区域复制并选择性粘贴为数值（去除公式）后，将最后一个户主所在区域选中后以查找替换的方式批量将其去除）
1、在Sheet1工作表的C2单元格输入公式：
=IF(A2="户主", 1, C1+1)
复制并下拉到底，即可显示每一个成员在户中的排名
2、在Sheet1工作表的D2单元格输入公式：
=IF(A2="户主",B2,D1)
复制并下拉到底，即可显示每个行对应的户主姓名。
3、在Sheet2工作表的B2单元格输入数组公式！是数组公式：
=IFERROR(INDEX(Sheet1!$B$2:$B$20,SMALL(IF(Sheet1!$A$2:$A$20="户主",ROW($A$1:$A$19),4^8),ROW(A1))),"")
复制并下拉，即可在B列显示每一个户主的姓名了（此处特别注意！！！公式为数组公式，输入或者粘贴公式后必须同时按CTRL+SHIFT+ENTER这3个键结束并在编辑栏可见到大的花括号，否则公式是无效的！！！
4、在Sheet2工作表的C2单元格输入公式：
=IFERROR(LOOKUP(1,0/((Sheet1!$D$2:$D$20=$B2)*(Sheet1!$C$2:$C$20=INT(COLUMN(B$1)/2))),IF(MOD(COLUMN(),2),Sheet1!$A$2:$A$20,Sheet1!$B$2:$B$20)),"")
复制并下拉和右拉，填充满右边的区域，即可。