CountCharInCell

Function CountCharInCell(myRange As Range, myChar As String) As Integer
    Dim i As Integer
    Dim myString As String
    Dim charCount As Integer

    ' Lấy giá trị của ô bảng tính
    myString = myRange.Value

    ' Đếm số lần xuất hiện của ký tự trong chuỗi
    For i = 1 To Len(myString)
        If Mid(myString, i, 1) = myChar Then
            charCount = charCount + 1
        End If
    Next i

    ' Trả về số lần xuất hiện của ký tự trong chuỗi
    CountCharInCell = charCount
End Function