xin công thức tính được số người còn lại theo từng cột (2 người xem)

[tadung2710]

có thầy nào giúp em công thức tính được số người còn lại theo từng cột không ạ, khi data bị merge ở các dòng ngang thì có đếm được không ạ.

 

[bebo021999]

Mình dùng VBA để tạo UDF (hàm tự tạo), giúp cho việc đếm các ô Merge .
Code để trong module 3, gồm 2 hàm
=demcot(vung) dùng để đếm các ô bị merge trong cột
và
=demvung(vung, dieukien) để đếm các ô bị merge trong vùng thoả điều kiện nào đó

Option Explicit
Function demcot(cot As Range) As Integer
Dim ce As Range, c&
For Each ce In cot
    If ce.MergeCells Then
        c = c + 1
    End If
Next
demcot = c
End Function
'-----------------------------------------------------------------------------
Function demvung(vung As Range, dieukien As String) As Integer
Dim ce As Range, c&, st As String
For Each ce In vung
    If ce.MergeArea.Cells(1, 1) = dieukien Then
        c = c + 1
        Debug.Print ce.Address
    End If
Next
demvung = c
End Function