Hỏi số 12 xuất hiện bao nhiêu lần trong cột A (1 người xem)

[hoamattroicoi]

Không được đâu bác ah, không có next nó không thể len một lúc cả Range đâu.

(Len chỉ áp dụng với 1 Cell, chứ không áp dụng với 1 Range được)

Thay bằng cái này :

Function Dem(Rng As Range, KT As String) As Long
Dim i As Long
Dim Tmp As Long
Dim Arr()
Arr = Rng.Value
Tmp = 0
For i = 1 To UBound(Arr)
     Tmp = Tmp + (Len(Arr(i, 1)) - Len(Replace(Arr(i, 1), KT, ""))) / 2
Next
Dem = Tmp
End Function

@ndu :Đã viết thành UDF rồi thì viết luôn cho nhiều cell, chứ viết code cho 1 cell thì viết làm gì cho mất công

Em đang chập chững mà sư phụ, từng bước, từng bước, he he he!

 

[concogia]

Nếu dữ liệu sắp xếp như trong bài ví dụ của bạn trungvdb , mình xin góp một cách:

Public Function Dem(Vung As Range, Dk) As Integer
    If Vung.Rows.Count = 1 Then
        Dem = UBound(Split(Vung, Dk))
    Else
        Dem = UBound(Split(Join(Application.WorksheetFunction.Transpose(Vung)), Dk))
    End If
End Function

Híc

 

[yoomi]

Thay vào không ra kết quả đúng gì hết mấy bác ơi.