Secret_grasses nói:
Anh Hồng Việt chỉ gợi ý cho bạn, để viết hàm bằng VBA. Bạn cóp nguyên công thức của ảnh mà chưa viết hàm thì cho ra kết quả sai là đúng rồi.:friend:.
Đây là nguyên văn hàm mà bạn Hồng Việt gửi bằng cửa hâụ cho mình, bạn kiểm tra xem thế nào nhé mình chạy nhưng kết quả không đúng.
Function FinDLap(Str1 As String, STr2 As String) as integer
Dim iJ As Integer, iDem As Integer, iDai As Integer, iTam As Integer
iDai = len(Str1)
For iJ = 1 to iDai
iTam = Instr(iJ, Str1, Str2)
IF iTam >0 then
iDem = IDem +1: Str1=Mid(Str1,iTam)
End if
Next iJ
FINDLap = iDem
End Function