Đếm số dòng đã bị Merge cell trong 1 vùng (1 người xem)

[nnd1988]

Do công việc nên em cần xác định xem trong vùng đã bị merge có bao nhiêu dòng bị merge tất cả. Mong các thầy các anh, chị giúp đỡ em với ạ! Hàm trong excel hoặc VBA đều được ạ. Kết quả mong muốn em ghi trong file đính kèm ạ!
Cảm ơn các thầy và các anh chị!

 

[seikoqn]

Do công việc nên em cần xác định xem trong vùng đã bị merge có bao nhiêu dòng bị merge tất cả. Mong các thầy các anh, chị giúp đỡ em với ạ! Hàm trong excel hoặc VBA đều được ạ. Kết quả mong muốn em ghi trong file đính kèm ạ!
Cảm ơn các thầy và các anh chị!

Nếu trong 1 vùng thì dùng đoạn code này thử xem:

Public Sub DemDong()
    Selection.Rows.Count
End Sub

Còn đếm ở nhiều vùng cùng lúc thì hơi khó đấy!

 

[nnd1988]

Nếu trong 1 vùng thì dùng đoạn code này thử xem:

Public Sub DemDong()
    Selection.Rows.Count
End Sub

Còn đếm ở nhiều vùng cùng lúc thì hơi khó đấy!

Em muốn có 1 hàm hoặc thủ tục có thể xác định số dòng trong vùng merge ạ!

 

[comet_1701]

Do công việc nên em cần xác định xem trong vùng đã bị merge có bao nhiêu dòng bị merge tất cả. Mong các thầy các anh, chị giúp đỡ em với ạ! Hàm trong excel hoặc VBA đều được ạ. Kết quả mong muốn em ghi trong file đính kèm ạ!
Cảm ơn các thầy và các anh chị!

Sub Dem_dong_Merge()
    Dim i As Long, Sodong As Long
    For i = 1 To 200
  
        Sodong = Range("A" & i).MergeArea.Rows.Count


        If Sodong > 1 Then
            MsgBox ("Vung [A" & i & "] co " & Sodong & " dong ")
            i = i + Sodong
        End If
    Next i
End Sub

Bạn thử xem có được ko

Sub dem_dong()
 
    Dim i As Long
 
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
            Range("B" & i).Value = Range("A" & i).Offset(1, 0).Row - i
            i = Range("A" & i).Offset(1, 0).Row - 1
    Next i
 
End Sub