户口信息转换（竖表转横表）

dinghaibo8

把一家的竖向户口信息，转换成横向户口信息
比如：
户主   姓名  年龄  身份证号
妻子  姓名  年龄  身份证号
子女1  姓名  年龄  身份证号
子女2  姓名  年龄  身份证号
子女3  姓名  年龄  身份证号

转换成：
户主   姓名  年龄  身份证号   妻子  姓名  年龄  身份证号  子女1  姓名  年龄  身份证号  子女2  姓名  年龄  身份证号  子女3  姓名  年龄  身份证号

sunya_0529

可以写一段宏来解决，修改代码里的"J9"为你想要输出的区域——

1. Option Explicit
   
2. 
   
3. Sub 提取数据()
   
4. Dim k As Range, arr(1 To 999, 1 To 60), i%, j%
   
5. With ActiveSheet
   
6.   For Each k In .Range("C2:C" & .[C2].End(xlDown).Row)
   
7.     If k.Value = "户主" Then
   
8.       i = i + 1
   
9.       j = 0
   
10.     Else
    
11.       j = j + 1
    
12.     End If
    
13.     arr(i, j * 6 + 1) = k.Offset(0, -1)
    
14.     arr(i, j * 6 + 2) = k
    
15.     arr(i, j * 6 + 3) = k.Offset(0, 1)
    
16.     arr(i, j * 6 + 4) = k.Offset(0, 2)
    
17.     arr(i, j * 6 + 5) = k.Offset(0, 3)
    
18.     arr(i, j * 6 + 6) = k.Offset(0, 4)
    
19.   Next
    
20.   .[J9].Resize(999, 60) = arr '修改这里的J9为你想要输入的单元格
    
21. End With
    
22. End Sub

复制代码