户口信息调整求助，附件如下

考试加油站

将图片1格式转换成图片2格式，如该农户家庭成员只有一人，也就是只有一个户主时，无法转换，如何修改代码。原代码如下

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 = 1
    
11. For i = 1 To UBound(arr)
    
12.   If arr(i, 2) = "户主" Then
    
13.     brr(m, 1) = arr(i, 5)
    
14.     brr(m, 2) = arr(i, 3)
    
15.     brr(m, 3) = arr(i, 4)
    
16.   Else
    
17.     brr(m, 4) = arr(i, 3)
    
18.     brr(m, 5) = arr(i, 4)
    
19.     m = m + 1
    
20.   End If
    
21. Next
    
22. With Sheet2.[a3]
    
23.   .CurrentRegion.Offset(3).ClearContents
    
24.   .Resize(m, 5) = brr
    
25. End With
    
26. End Sub
    

复制代码

户籍资料格式转换 (1).rar (19.76 KB, 下载次数: 7)

2018-4-26 10:36 上传

点击文件名下载附件

opiona

户籍资料格式转换 (1).rar (19.48 KB, 下载次数: 8)

2018-4-27 16:24 上传

点击文件名下载附件

lsc900707

1. Sub gj23w98()
   
2.     arr = Sheet1.[a1].CurrentRegion
   
3.     ReDim brr(1 To UBound(arr), 1 To 5)
   
4.     For i = 2 To UBound(arr)
   
5.         If arr(i, 2) = "户主" Then
   
6.             m = m + 1
   
7.             brr(m, 1) = arr(i, 5)
   
8.             brr(m, 2) = arr(i, 3)
   
9.             brr(m, 3) = arr(i, 4)
   
10.         Else
    
11.             m = m + 1
    
12.             brr(m, 4) = arr(i, 3)
    
13.             brr(m, 5) = arr(i, 4)
    
14.         End If
    
15.     Next
    
16.     If m > 0 Then
    
17.         [a1].CurrentRegion.Offset(2).ClearContents
    
18.         [a3].Resize(m, 5) = brr
    
19.     End If
    
20. End Sub
    

复制代码

考试加油站

lsc900707 发表于 2018-4-27 17:00

版主好，实际附件如下，有点复杂，你的代码可否修改
按户号判断一家人，户主不必在第一个，户号可以交叉
户籍资料格式转换ED.rar (742.96 KB, 下载次数: 4)

2018-4-29 16:47 上传

点击文件名下载附件

lsc900707

考试加油站 发表于 2018-4-29 16:47
版主好，实际附件如下，有点复杂，你的代码可否修改
按户号判断一家人，户主不必在第一个，户号可以交叉 ...

没看懂你的新要求。

考试加油站

按户号判断一家人：同一个户号是一家人
户主不必在第一个：一家人的户主可能不是排列在第一个，见附件第二户
户号可以交叉：就是有时户号没有排列好，这个可以不考虑，到时排列一下户号就行了

考试加油站

lsc900707 发表于 2018-4-29 18:46
没看懂你的新要求。

按户号判断一家人：同一个户号是一家人
户主不必在第一个：一家人的户主可能不是排列在第一个，见附件第二户
户号可以交叉：就是有时户号没有排列好，没有按顺序排列，这个可以不考虑，到时排列一下户号就行了

chxw68

考试加油站 发表于 2018-4-29 19:30
按户号判断一家人：同一个户号是一家人
户主不必在第一个：一家人的户主可能不是排列在第一个，见附件第 ...

楼主模拟数据有问题吧？同一户人家组别不一样，这样怎么按组按户分类呢？

考试加油站

chxw68 发表于 2018-4-29 19:48
楼主模拟数据有问题吧？同一户人家组别不一样，这样怎么按组按户分类呢？

是按照户号分类，按组是没法分类的

chxw68

考试加油站 发表于 2018-4-29 21:56
是按照户号分类，按组是没法分类的

A列不是组别吗？