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:
- Xin trợ giúp: viết hàm tính tổng của 1 ô chứa xâu "4 6 2 6 8 9 1"
- Nhờ hướng dẫn tách chuỗi ký tự nằm giữa hai ký tự /
- Tách tên sang cột khác còn họ và tên đệm giữ nguyên
- xin hướng dẫn thiết lập Data Validation
- Nối chuỗi ký tự số dài !
- Tìm kiếm các chuỗi liên quan đến nhau
- Cách lấy 1 phần trong chuỗi, xử lý trong excel làm thế nào?
- Chuyển các dấu trong tiếng việt thành số
- Đảo vị trí các chuỗi con trong chuỗi lớn
- Cắt lấy nhóm từ cuối cùng của một chuổi