求助一下大家EXCEL如何统计同一单元格中的重复文字?脂我想知道到，英

Question

如题所述

Answer 1

用自定义函数吧。如下图。

用法：=CELLREPT(统计区间)

该函数区分大小写，重复的空白字符也计算在内。如需修订请追问。

Function CellRept(rng As Range) As String
Dim d, k
Set d = CreateObject("Scripting.Dictionary")
Dim rg As Range
Dim i As Integer
For Each rg In rng
    For i = 1 To Len(rg)
        If d.exists(Mid(rg, i, 1)) Then
            d(Mid(rg, i, 1)) = d(Mid(rg, i, 1)) + 1
        Else
            d(Mid(rg, i, 1)) = 1
        End If
    Next
Next
For Each k In d.keys
    If d(k) > 1 Then CellRept = CellRept & k
Next
Set d = Nothing
End Function

Answer 2

答案:20.苹果最光辉的一刻就是砸在牛顿头上！本回答被提问者采纳