户籍资料格式转换 (2)

opiona

2种情况
A.单人户主： 家庭成员信息(DE列）填写 户主本人信息


B.单人户主：不填写家庭成员信息(DE列）

372C

这样就可以了

1. Option Explicit
   
2. 
   
3. Sub test()
   
4. Dim arr, i&, m&, r&
   
5. With Sheet1
   
6.   r = .Cells(Rows.Count, 4).End(3).Row
   
7.   arr = .Range("A2:E" & r)
   
8. End With
   
9. ReDim brr(1 To UBound(arr), 1 To 5)
   
10. m = 0
    
11. 
    
12. For i = 1 To UBound(arr)
    
13. '
    
14. If m > 1 Then
    
15.     If Not (arr(i, 2) = "户主" And arr(i - 1, 2) = "") Then m = m + 1
    
16. Else
    
17.     m = m + 1
    
18. End If
    
19.   
    
20.   
    
21.   If arr(i, 2) = "户主" Then
    
22.     brr(m, 1) = arr(i, 5)
    
23.     brr(m, 2) = arr(i, 3)
    
24.     brr(m, 3) = arr(i, 4)
    
25.   Else
    
26.     brr(m - 1, 4) = arr(i, 3)
    
27.     brr(m - 1, 5) = arr(i, 4)
    
28.   End If
    
29. 
    
30. 
    
31. 
    
32. Next
    
33. With Sheet2.[a3]
    
34.   .CurrentRegion.Offset(3).ClearContents
    
35.   .Resize(m, 5) = brr
    
36. End With
    
37. End Sub

复制代码

一把小刀闯天下

考试加油站 发表于 2018-4-26 14:32
谢谢，基本成功了，但如在与户主关系栏写上“户主，妻子，儿子，次子，子等常见内容时会出错”，If Len(a ...

如果条件改变了还得上附件，因为我是按1楼的附件来写的。

jjmysjg

留个记号，户籍转

excelvlookup

按户号判断一家人，户主不必在第一个，户号可以交叉

考试加油站

一并感谢上面各位出手帮忙

考试加油站

excelvlookup 发表于 2018-4-27 21:00
按户号判断一家人，户主不必在第一个，户号可以交叉

修改一下数据内容，代码如何修改，求答案
户籍资料格式转换 (2)DD.rar (742.97 KB, 下载次数: 10)

2018-4-28 12:10 上传

点击文件名下载附件

考试加油站

一把小刀闯天下 发表于 2018-4-26 20:42
如果条件改变了还得上附件，因为我是按1楼的附件来写的。

附件在17楼，请查看

一把小刀闯天下

考试加油站 发表于 2018-4-28 12:11
附件在17楼，请查看

因为原为空，所以当时作了空判断，现在改为户主来判断，自己再试一下。
If Len(arr(j + 1, 2)) > 0 Or Len(arr(j + 1, 3)) = 0 Then   修改为：

If arr(j + 1, 2) = "户主" Or Len(arr(j + 1, 3)) = 0 Then

考试加油站

一把小刀闯天下 发表于 2018-4-28 15:05
因为原为空，所以当时作了空判断，现在改为户主来判断，自己再试一下。
If Len(arr(j + 1, 2)) > 0 Or L ...

谢谢，经测试没有成功。全部数据都跑到家庭成员那儿了