Các anh chị cho em xin công thức đếm bao nhiêu người có chữ cái lần lượt là a,b,c..
Em xin cảm ơn anh trước
Function ten(ht As String)
Dim kq As Variant
kq = Split(ht, " ")
ten = kq(UBound(kq))
ten = Left(ten, 1)
End Function
'===============================
Function dem(kt As String, vung As Range)
i = 0
For Each cell In vung
If ten(cell.Text) = kt Then i = i + 1
Next
dem = i
End Function