巧用Excel妙招，轻松统计户口簿人数

2023-12-27 19:29:22

Excel统计户口簿人数：妙招速览

驾驭Excel的奥秘，轻松统计户口簿中每户的人数，让数据处理事半功倍！

一、巧用LOOKUPVALUE函数：精准定位

LOOKUPVALUE函数宛若一支利剑，直指目标数据。其语法如下：

LOOKUPVALUE(result_col, search_col, search_value, [range])

实战演练：在C2单元格中输入公式，统计户主所在行的姓名数量：

=IF(A2="户主", COUNTIFS(A:A, A2, B:B, "<>"), "")

二、COUNTIFS函数助阵：条件匹配

COUNTIFS函数犹如一把筛子，筛选出符合条件的数据。其语法如下：

COUNTIFS(range1, criteria1, range2, criteria2, ...)

实战演练：在D2单元格中使用COUNTIFS函数统计户主所在行的姓名数量：

=COUNTIFS(A:A, A2, B:B, "<>")

三、数据透视表出马：汇总分组

数据透视表堪称数据分析的利器，快速汇总和分组数据。操作步骤如下：

选中户籍信息表数据。
点击“插入”选项卡，“数据透视表”。
将“和户主的关系”拖至“行标签”，将“姓名”拖至“值”。
在“值”字段设置中选择“计数”。

四、代码示例

以下是使用VBA代码统计户口簿人数的示例：

Sub CountHouseholdMembers()

    Dim ws As Worksheet
    Dim rng As Range
    Dim dict As Object
    Dim key As Variant
    Dim count As Long

    Set ws = ThisWorkbook.Worksheets("户籍信息表")
    Set rng = ws.Range("A2:B" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)

    Set dict = CreateObject("Scripting.Dictionary")

    For Each cell In rng
        If cell.Offset(0, -1).Value = "户主" Then
            If Not dict.Exists(cell.Value) Then
                dict.Add cell.Value, 1
            Else
                dict(cell.Value) = dict(cell.Value) + 1
            End If
        End If
    Next

    For Each key In dict.Keys
        count = count + dict(key)
    Next

    MsgBox "户口簿中共有 " & count & " 人口。"

End Sub