如何让空格自动填充符合条件的内容

来源：百度知道 编辑：UC知道 时间：2024/07/03 11:26:27
我在用Excel整理全校学生家庭状况时发现有很多的“家庭住址”只填户主的,其他成员的“家庭住址”栏有的填，有的不填。如果用手工操作一一补填进去，很麻烦。如何用公式判断"家庭住址"栏空白处自动填入与户主一样的家庭住址？具体如下：

户口序号 姓名 性别 民族 家庭住址 户主
515003925 陶荣君 男 壮 四明村5组 陶荣君
515003925 邓美小 女 壮 四明村5组 陶荣君
515003925 陶锦波 男 壮 陶荣君
515003925 陶凤仙 女 壮 陶荣君
515003926 陶炳熙 男 壮 四明村9组 陶炳熙
515003926 张连启 女 壮 四明村9组 陶炳熙
515003926 陶荣恩 男 壮 陶炳熙
515003927 陶炳煊 男 壮 四明村19组 陶炳煊
515003927 黄春妹 女 壮 四明村19组 陶炳煊
515003927 陶荣俊 男 壮 陶炳煊
感谢WXL9001的建议,我的邮箱是aniuge521@163.com, 其实我的数据表里每一户序号的第一个就是该户的户主,还有必要另建一个《户主地址表》吗?我在耐心等WXL9001的指教！
谢谢回答者：juyouhh提供的解答方法,我的20000多个数据中一半的空档已在一秒多钟的时间里填入相应的数据,那个感觉呀!爽!
可惜,代码是什么意思,我不太懂,还望juyouhh及广大朋友多多指教!

如果你的数据已经象示例那样是排好序的话，用下面的代码就可以了（右击表的标签，“查看代码”）。
Sub test()
r = Range("a65536").End(xlUp).Row
For Each i In Range("e1:e" & r)
If Len(i) = 0 Then
Cells(i.Row, 5) = Cells(i.Row - 1, 5)
End If
Next
End Sub

你应单建一个表《户主地址表》，本表中的地址可用公式从《户主地址表》中引用，如果你有邮箱，我可答案传给你。我的邮箱：WXL9001@163.COM

描述再清楚一点呢，有点晕

bu hui