Nhờ mọi người giúp xử lý đếm dữ liệu theo vùng dữ liệu.

[chjck3n]

Mình có File cần đếm dữ liệu theo vùng trên nguyên tắc:
- Dữ liệu đếm từ trái qua phải, từ trên xuống dưới.
- Ô có dữ liệu liền kề nhau được đếm trả về kết quả ở ô không có dữ liệu kế tiếp(vd: ô A).
- Ô không có dữ liệu(vd: ô B) tại vị trí sau ô A được đếm trả về kết quả = 0 tại ô B.
- Kết quả đếm trả về vùng mới với kết quả đếm tương ứng vị trí ô không có dữ liệu.
Mình gửi kèm theo file minh họa.
Anh chị em có cách nào xử lý giúp mình được không ?
Chân thành cám ơn mọi người !

 

[CHAOQUAY]

Mình có File cần đếm dữ liệu theo vùng trên nguyên tắc:
- Dữ liệu đếm từ trái qua phải, từ trên xuống dưới.
- Ô có dữ liệu liền kề nhau được đếm trả về kết quả ở ô không có dữ liệu kế tiếp(vd: ô A).
- Ô không có dữ liệu(vd: ô B) tại vị trí sau ô A được đếm trả về kết quả = 0 tại ô B.
- Kết quả đếm trả về vùng mới với kết quả đếm tương ứng vị trí ô không có dữ liệu.
Mình gửi kèm theo file minh họa.
Anh chị em có cách nào xử lý giúp mình được không ?
Chân thành cám ơn mọi người !

Bạn thử code dưới đây

Sub Dem()
Dim Nguon
Dim Kq
Dim i, j, k, r, c
Nguon = Sheet1.Range("B2:D17")
r = UBound(Nguon)
c = UBound(Nguon, 2)
ReDim Kq(1 To r, 1 To c)
For i = 1 To r
    For j = 1 To c
        If Nguon(i, j) <> "" Then
            k = k + 1
        Else
            Kq(i, j) = k
            k = 0
        End If
    Next j
Next i
With Sheet1
    .Range("E2").Resize(r, c) = Kq
    .Range("E2").Resize(r, c).Borders.LineStyle = 1
End With
End Sub

 

[chjck3n]

Vấn đề đã được giải quyết. Cám ơn bạn rất nhiều.