excel统计姓名各个字的数量

发布网友 发布时间：2022-04-19 16:05

我来回答

共4个回答

热心网友 时间：2023-09-03 19:19

这个问题稍麻烦点，需要通过VBA来实现。
下面的模块放在sheet1,假设 sheet1的A列是姓名，总共100行。
然后执行。
计算结果将放在sheet2,A列是出现过的汉字,B列是该汉字出现的次数

Sub TongJi()
Sheet2.Range("A:B").ClearContents '每次执行先清空统计结果
Dim i, j, k, m As Integer
Dim x1, x2 As String
For i = 1 To 100 '可以调整100为实际行数，数较大时可能计算会稍慢些
x1 = Cells(i, 1)
For j = 1 To Len(x1)
x2 = Mid(x1, j, 1)
m = Sheet2.[A65536].End(xlUp).Row
For k = 1 To m
If Sheet2.Cells(k, 1) = x2 Then
Sheet2.Cells(k, 2) = Sheet2.Cells(k, 2) + 1
Exit For
End If
Next k
If k > m Then
Sheet2.Cells(k, 1) = x2
Sheet2.Cells(k, 2) = 1
End If
Next j
Next i
End Sub

热心网友 时间：2023-09-03 19:19

假设姓名在a列，复制此列到b列，选择b列，进入数据菜单——分列，固定长度——下一步，按第一个字分列。在f1中输入公式 =a1&"-"&countif($b:$e,a1) 或者公式 =countif($B:$E,A1) 下拉公式和右拉公式即可。

热心网友 时间：2023-09-03 19:19

假设原来的数据在a列
你需要查找的字是“强”字
在b1输入
=SUMPRODUCT(LEN($A$1:$A$30000)-LEN(SUBSTITUTE(A1:A30000,"强","")))
即可得到结果

相查找其他字 只需把引号里面字替换一下即可

热心网友 时间：2023-09-03 19:20

用countif函数比较方便……