Macro to group the rows based on cell value

[maomaodang]

Dear all,

I need help. I would like to group the rows if the value is zero. For example, if cell a10 has a value, and a15 has a value, then row 11 to row 14 have to be grouped as row 11 to row 14 values are zero. I have 2000 rows. Can anyone help me with this please?

Thank you very much!

 

[sadboy309]

You learn the code and building it:

Private Sub mergeGroup()
Application.DisplayAlerts = False
Dim fl As Boolean
Dim i As Long, k As Long


For i = 2 To 2000
    If Not fl And Cells(i, 1) = 0 Then
        k = i
        fl = True
    End If
    
    If fl And Cells(i, 1) > 0 Then
        Range("A" & k & ":A" & i - 1).Merge
        Rows(k & ":" & i - 1).Rows.Group
        fl = False
    End If
Next


Application.DisplayAlerts = True
End Sub

 

[maomaodang]

Thank you very much!