level 1
选中所有需要填充的合并单元格所在区域
，假设数据从第2行开始，输入公式
=IF(D2="户主","HCZTT"&TEXT(COUNTIF(D$2:D2,"=户主"),"000"),"")
按住【Ctrl + Enrer】键
2020年12月22日 02点12分
level 8
2
好的，谢谢，我试试~
2020年12月22日 02点12分
膜拜大神![[花心]](/static/emoticons/u82b1u5fc3.png)
2020年12月22日 02点12分
大神，您好，我想问一下，COUNTIF里面为什么是"=户主"，而不是"户主"呢？还有就是什么时候按ctrl+enter,什么时候按ctrl+shift+enter![[疑问]](/static/emoticons/u7591u95ee.png)
2020年12月22日 05点12分
表达式要加引号
2020年12月22日 05点12分
level 4
="HCZTT"&IF(COUNTA($B$1:B1)<10,"00",IF(COUNTA($B$1:B1)<100,"0",""))&COUNTA($B$1:B1)按Ctrl + Enrer填充
还可以这样。。谢谢您![[吐舌]](/static/emoticons/u5410u820c.png)
~
2020年12月22日 14点12分
~
level 7
如果只是要填 户序号 只要三行代码
Sub 自动()
For x = 2 To Range("A60000").End(xlUp).Row '从D列第二行开始扫描
If Cells(x, "d") = "户主" Then '如果这一行 为 户主
Cells(x, "b") = "HCZTT" & Format(Z, "000") '填上序号
End If
Next x
End Sub
我加了一个功能，自动合并单元格 ，然后再填序号
2020年12月22日 09点12分
4
Sub 自动()
For x = 2 To Range("A60000").End(xlUp).Row '从D列第二行开始扫描
If Cells(x, "d") = "户主" Then '如果这一行 为 户主
Cells(x, "b") = "HCZTT" & Format(Z, "000") '填上序号
End If
Next x
End Sub
我加了一个功能，自动合并单元格 ，然后再填序号
感谢大神，我再琢磨琢磨![[哈哈]](/static/emoticons/u54c8u54c8.png)
~
2020年12月22日 14点12分
~
自动的VBA呢 ，也发出来呀@youguiqing
2020年12月23日 00点12分