Tôi viết hàm nay cho dữ liệu bạn đã đưa lên nên chưa tổng quát. Thôi thì đưa sao làm vậy bạn Test thử.Gửi bởi nguyendu277
--------------------------------
Cú Pháp: =Dem(ô cần đếm)
------------------------------------------------------
Mã:Public Function Dem(cell As Range) As Long Dim arr, d As Long, kq(), i As Long, tmp arr = Split(cell, ",") For i = 0 To UBound(arr) If Len(Trim(arr(i))) < 3 Then d = d + 1 Else tmp = Split(arr(i), "-") d = d + tmp(1) - tmp(0) + 1 End If Next i Dem = d End FunctionView more random threads:
- Nhờ các bạn giúp cắt từng đoạn text trong ô.
- Xin cả nhà giúp em về chuỗi và số – sao cho trong chuỗi có dấu phần ngàn và tỷ lệ %
- Tách và chuyển chuỗi ký tự như mong muốn
- Xin hàm chuyển số thành chuỗi ký tự
- Nhờ anh chị giúp lọc lấy chuỗi dữ liệu dùm
- Tách chuổi thành 3 cột nhưng hơi phức tạp
- Tắt tự động nhảy chữ mới lạ
- xin hướng dẫn thiết lập Data Validation
- Gõ ký tự đại diện trong Validation
- Tách chuỗi