把户口册上的一家人（若干列）用函数转换成一行

superspeed

说明：上表是三户人的家庭成员信息，第一列是户主姓名，第二列是户主姓名和家庭成员姓名，第三列是每个家庭成员的身份证号，现在我需要把这三户人每一户的家庭信息变成如右边所示的形式，用公式怎么解决，感谢大家帮忙解答。

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, p, n
  arr = Range("a2:c" & Cells(Rows.Count, "b").End(xlUp).Row + 1)
  arr(UBound(arr, 1), 1) = "?"
  ReDim brr(1 To UBound(arr, 1), 1 To 30) As String '每户最多支持15人
  p = 1
  For i = 1 To UBound(arr, 1) - 1
    n = n + 2
    brr(p, n - 1) = arr(i, 2): brr(p, n) = arr(i, 3)
    If Len(arr(i + 1, 1)) Then p = i + 1: n = 0
  Next
  With [e2]
    .Resize(Rows.Count - 1, UBound(brr, 2)).ClearContents
    .Resize(UBound(brr, 1), UBound(brr, 2)) = brr
  End With
End Sub

PQ小学生

笨方法 看下是否是这样

superspeed

PQ小学生 发表于 2019-1-14 09:47
笨方法 看下是否是这样

能用公式函数解决一下吗？

superspeed

PQ小学生 发表于 2019-1-14 09:47
笨方法 看下是否是这样

好像你的这个过程录屏不完整，我按照你的方法做了以后没有出来结果，麻烦你把步骤再详细点，谢谢！

superspeed

一把小刀闯天下 发表于 2019-1-14 08:40
Option Explicit

Sub test()

谢谢，VBA就是强大，但是我基础不行，这些代码我看不懂啊！

wdx223

1. let
   
2.     Source = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     #"Changed Type" = Table.TransformColumnTypes(Source,{{"户主", type text}, {"姓名", type text}, {"身份证号", type text}}),
   
4.     Custom1 = Table.FillDown(#"Changed Type",{"户主"}),
   
5.     Custom2 = Table.Group(Custom1,"户主",{"n",each Table.FromRows({List.Combine(List.Zip({[姓名],[身份证号]}))})}),
   
6.     Custom3 = Table.Combine(Custom2[n])
   
7. in
   
8.     Custom3

复制代码

superspeed

经过几天的思考，总算用函数解决了这个问题，我的思路是构造数列的方法，在E1单元格里面输入公式：=IF(AND(($A1<>""),(2*MATCH("*",$A2:$A$2299,0)-COLUMN(A1))>=0),INDIRECT(ADDRESS((ROUNDUP(COLUMN(A1)/2,0)+ROW(A1)-1),(MOD(COLUMN(B1),2)+2))),"")，然后向右向下拖动就行了，谢谢大家的热心帮助，在这里说声谢谢了！

superspeed

具体解决方法见截图。

superspeed

superspeed 发表于 2019-1-14 17:54
具体解决方法见截图。

用了几天的时间，用构造数列的思路解决了这个问题，再次感谢大家的帮助。