楼主
wise |
Q:每一户都有相同的户号，如何利用户号，将对应的户主填入户主姓名栏？
A：可以使用以下的VBA代码：
- Sub test()
- Dim i As Long, j As Long, d As Object, arr
- Set d = CreateObject("scripting.dictionary")
- For i = 3 To Cells(Rows.Count, 1).End(xlUp).Row
- If Cells(i, 7) = "户主" Then
- d(Cells(i, 1)) = Cells(i, 11).Value
- End If
- Next i
- arr = d.keys
- For i = 0 To d.Count - 1
- For j = 3 To Cells(Rows.Count, 1).End(xlUp).Row
- If d(arr(i)) = Cells(j, 11) Then
- Cells(j, 6) = arr(i)
- End If
- Next j
- Next i
- End Sub
 清水户籍VBA.rar
|
2楼
gouweicao78 |
- =LOOKUP(1,0/((G$3:G$301="户主")*(K$3:K$301=K3)),A$3:A$301)
|
3楼
wjc2090742 |
- select a.*,b.姓名 as 户主姓名 from [sheet1$]a left join (select 姓名,与户主关系,户号 from [Sheet1$] where 与户主关系='户主')b on a.户号=b.户号
好像是这样，但是出来的列顺序不对，小7顺便指导下。
清水户籍VBA.rar
|
4楼
gouweicao78 |
当数据量大时，2楼公式计算速度会慢，调整一下位置：
A列为户号、B列为与户主关系、C列为姓名，则公式改为：- =VLOOKUP("户主",OFFSET(B$1:C$1,MATCH(A2,A:A,0)-1,,COUNTIF(A:A,A2)),2,0)
|
5楼
gouweicao78 |
解决顺序问题，如图，把“保留列排序、筛选、布局”复选框去掉：
 |
6楼
海洋之星 |
师傅，那里面咋还有没有户主呢，帮我改一下，我的把没有户主的没有找到
- select a.姓名,a.公民身份号码,a.街路巷,a.门楼详址,a.户别,b.姓名 as 户主姓名,a.与户主关系,a.性别,a.民族,a.出生日期,a.户号,a.职业 from [Sheet1$] a,[Sheet1$] b where a.户号=b.户号 and b.与户主关系="户主" order by a.户号
123.rar
|
7楼
wjc2090742 |
正是因为存在无户主的记录，所以要利用left join返回第一个表所有记录的特性。
Excel中的SQL如何对两张表进行内、左、右连接？ http://www.exceltip.net/thread-4440-1-1.html
|