Grouping of Rows

[akul2013]

Hello Every one,

I have data with duplicated values in a column and I would like to group the rows where there are duplicates entered i.e. the data is as follows :

Emp1
Emp1
Emp1
Emp2
Emp2
Emp2
Emp3
Emp3
Emp3

The output which I would like to see is :

+Emp1
+Emp2
+Emp3

When I click on the + sign it should expand.

I have tried with Grouping of rows and subtotal, these does not serve the purpose.

Request you to help me in this regards.

 

[chetanmehra1989]

Dim myValue As Variant
Dim myCol As String
Dim myRow As Long
Dim startRow As Long
Dim lastRow As Long
'Which column to look at?
myCol = "A"
'Which row to look at first?
myRow = 1
lastRow = Cells(myRow, myCol).End(xlDown).row
myValue = Cells(myRow, myCol)
startRow = myRow
Application.ScreenUpdating = False
For i = myRow + 1 To lastRow + 1
If Cells(i, myCol).Value <> myValue Then
'New group begins
Range(startRow + 1 & ":" & i - 1).EntireRow.Group
startRow = i
myValue = Cells(i, myCol).Value
End If
If myValue = "" Then
'blank cell
Exit For
End If
Next i
Application.ScreenUpdating = True

 

[akul2013]

Thank you so much for the VBA script Chetan. However, wanted to know, if there is a feasibility using Excel options with out any VBA Script