如何把一列中三个不同的文本个数计数在一起,用VBA自定义函数能解决吗?

你应该更详细一点的描述你的问题.
统计个数之类的都不是很困难,只是不知道你到底是计什么数!
再问： 比如：一列中有3个a,4个b,2个c，但每列都不一样，需要一个公式，将每列中abc总的个数统计出来。谢谢！
再答： Function strNum(ByVal Rng As Range, ParamArray arr() As Variant) As String
    'Rng用来确定区域,arr参数数组用来确定要统计的内容
    '本函数可以在指定区域，统计指定内容的数据个数
    
    Dim r As Range
    Dim dc As Object
    Set dc = CreateObject("Scripting.Dictionary")
    
    For Each r In Rng
        dc(r.Value) = Val(dc(r.Value)) + 1
    Next
    
    Dim i As Integer
    For i = 0 To UBound(arr)
        If Not dc.exists(arr(i)) Then dc(arr(i)) = 0
        If strNum = "" Then
            strNum = arr(i) & ":" & dc(arr(i))
        Else
            strNum = strNum & "  " & arr(i) & ":" & dc(arr(i))
        End If
    Next
End Function具体用法参见附件！！