答:如果你不拒绝其他方法,编程就能一步完成,我写了段程序,参照下图:
方法:按ALT+F11,打开编辑器,“插入”--“模块”,复制下面代码进去,按F5运行就可以。
Sub demo()
Dim Orng As Range
Dim Count As Long
Dim Drng As Range
Count = 1
Set Orng = Range("A1")
Set Drng = Range("C1")
Do Until IsEmpty(Orng)
If Orng = Orng.Offset(1, 0) Then
Count = Count + 1
Else
Drng = Orng
Drng.Offset(0, 1) = Count
Count = 1
Set Drng = Drng.Offset(1, 0)
End If
Set Orng = Orng.Offset(1, 0)
Loop
End Sub
你现在的资料是按一户一户排列的吗?是则
一、A列是户主的姓名,但这样的姓名有重复,故你要插入一列作为家庭户的编号,才能区分户主重名的家庭。请在A列插入一列,在A1输入 ”编号“,在A2输入1,在A3输入 公式:
=IF(B3=B2,A2,A2+1)
下拉填充,将各户编上不同的编号,这时将A列复制,选择性粘贴数值回A列。
二、对编号作分类汇总即可统计每户的人口数。
三、如果要对原C列的人查询户主名,则可将原A列调整到C列后,用VLOOKUP函数查找。
你把用函数或者公式统计的范围缩小一些,比如原来你用:Countifs(a:a,a1),现在改为:Countifs(a1:a10,a1)