谁能用VBA帮我把这表处理一下，谢谢

xinkunguo

处理数据.rar (5.76 KB, 下载次数: 7)

2013-7-22 17:31 上传

点击文件名下载附件
数据表

处理前

处理后

第一步：根据户口薄号，剃出一家人信息。
第二步：根据户主关系，确定父亲。母亲。配偶。

qy1219no2

第5行“是否户主”是否错误？？
与户主关系就只有你列中的：户主、子、女、妻这四种关系么？

xinkunguo

这只是个例子而已。第五行是有问题。没有改正过来。

xinkunguo

qy1219no2 发表于 2013-7-22 17:55
第5行“是否户主”是否错误？？
与户主关系就只有你列中的：户主、子、女、妻这四种关系么？

是错漏了。户主关系这里还有一些，那些关系比较复杂，就这些关系处理一下就可以了。这只是个例子而已。还有我个人的思路。是否可以建立一个数组来做。
第一步找到户口薄号相同的，再找到与户主关系，确定父母亲

qy1219no2

你看是否这样。如果数据多，可能运算有点慢，需要耐心等待。
与户主关系仅限于：户主、夫、妻、子、女。如果出现：丈夫、妻子、儿、子女、二儿子等，将无法正确匹配。如果存在其他情况，请先规范！未列入的关系，不匹配，手工自行匹配。

1. Sub test()
   
2.     nR = [a65536].End(xlUp).Row
   
3.     If nR < 2 Then Exit Sub
   
4.     For i = 2 To nR
   
5.         cGX = Right(Cells(i, 5), 1)                                         '本人关系:只取关系的右边第一个字
   
6.         ID = Cells(i, 2)                                                    '本人身份证号
   
7.         cXB = (IIf(Len(ID) = 15, Right(ID, 1), Mid(ID, 17, 1)) Mod 2 = 1)   '本人性别TRUE-男；FALSE-女
   
8.         Set Rng = [c:c].Find(Cells(i, 3), , , 1)                                  '查找相同户口号
   
9.         If Not Rng Is Nothing Then                                          '如果找到了
   
10.             cAdd = Rng.Address                                              '将找到的单元格地址记录下来，避免重复查找
    
11.             Do
    
12.                 If Right(Cells(Rng.Row, 5), 1) Like "[主夫妻]" Then         '如果找到的关系为户主、夫、妻之一
    
13.                     ID1 = Cells(Rng.Row, 2)                                 '找到的身份证号
    
14.                     cXB1 = (IIf(Len(ID1) = 15, Right(ID1, 1), Mid(ID1, 17, 1)) Mod 2 = 1) '计算找到的性别
    
15.                     nCol = 0
    
16.                     arr = Cells(Rng.Row, 1).Resize(1, 2)                    '将找到的姓名、身份证号存入arr临时数组
    
17.                     If cGX Like "[主夫妻]" And cXB1 = Not cXB Then nCol = 10 '如果本人与户主的关系为户主、夫、妻之一，且找到的性别与本人性别相反（未考虑同性婚姻哈）
    
18.                     If cGX Like "[子女]" Then nCol = 6 + IIf(cXB1, 0, 2)    '如果本人的关系为子或女
    
19.                     If nCol > 0 Then Cells(i, nCol).Resize(1, 2) = arr      '将arr数组信息写入相应单元格
    
20.                 End If
    
21.                 Set Rng = [c:c].FindNext(Rng)                               '继续查找
    
22.             Loop While Not Rng Is Nothing And Rng.Address <> cAdd
    
23.         End If
    
24.     Next
    
25. End Sub

复制代码

xinkunguo

不管怎么样，先谢谢这位坛友了！

xinkunguo

数据需要更改一下，身份证号会改变成长整型的

qy1219no2

xinkunguo 发表于 2013-7-23 13:39
数据需要更改一下，身份证号会改变成长整型的

执行代码前，先选中全部单元格（点A1单元格左上角），鼠标右键——设置单元格格式——文本。然后再执行代码。代码支持户口号无序排列。

xinkunguo

qy1219no2 发表于 2013-7-23 09:31
你看是否这样。如果数据多，可能运算有点慢，需要耐心等待。
与户主关系仅限于：户主、夫、妻、子、女。如 ...

身份证号码最后三位会变成000

qy1219no2

xinkunguo 发表于 2013-7-23 14:10
身份证号码最后三位会变成000

在8楼已经给你讲了怎样操作！
另外，我给你的附件，计算出来的结果身份证号后三位变成0了么？如果没有，哪你就应该检查自己的操作或数据录入是否规范