Add column after each different name.

[Kingkoopa]

Hi Guys,

Using Windows 7 & Excel 2010.

I have the following list :

[TABLE="width: 192"]
<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl63, width: 64"]List[/TD]
[TD="class: xl63, width: 64"]Currency[/TD]
[TD="class: xl63, width: 64"]Status[/TD]
[/TR]
[TR]
[TD]Apple[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Apple[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Apple[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Pear[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Pear[/TD]
[TD]AUD[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]Durian[/TD]
[TD]AUD[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]Durian[/TD]
[TD]AUD[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]Mango[/TD]
[TD]AUD[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]Mango[/TD]
[TD]AUD[/TD]
[TD]D[/TD]
[/TR]
</tbody>[/TABLE]

Would like to add a column after every different name list.

So it ends up being following :

[TABLE="width: 192"]
<colgroup><col width="64" span="3" style="width:48pt"> </colgroup><tbody>[TR]
[TD="class: xl65, width: 64"]List[/TD]
[TD="class: xl65, width: 64"]Currency[/TD]
[TD="class: xl65, width: 64"]Status[/TD]
[/TR]
[TR]
[TD]Apple[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Apple[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Apple[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Pear[/TD]
[TD]AUD[/TD]
[TD]V[/TD]
[/TR]
[TR]
[TD]Pear[/TD]
[TD]AUD[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Durian[/TD]
[TD]AUD[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD]Durian[/TD]
[TD]AUD[/TD]
[TD]C[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Mango[/TD]
[TD]AUD[/TD]
[TD]D[/TD]
[/TR]
[TR]
[TD]Mango[/TD]
[TD]AUD[/TD]
[TD]D[/TD]
[/TR]
</tbody>[/TABLE]

Any idea how I could do it .

Thank you

 

[My Aswer Is This]

Looks like you want to add a blank Row
You said:

Would like to add a column after every different name list.
​

 

[My Aswer Is This]

Is list in column A ?

 

[My Aswer Is This]

Assuming list is in column A
And you want to insert a empty row.
Try this:

Sub Test()
'Modified 4/16/2018 2:50 AM  EDT
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = Lastrow To 2 Step -1
    If Cells(i, 1).Value <> Cells(i, 1).Offset(-1).Value Then Rows(i).Insert xlShiftDown
Next
Application.ScreenUpdating = True
End Sub

 

[Fazza]

Non code approach. Select a cell, add subtotals (ALT-D-B), select level 2 row grouping, ALT-; to get visible cells, and then DEL to erase unwanted items. Now level 3 grouping.

 

[Kingkoopa]

Thanks guys it worked like a charm :D

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

Thanks guys it worked like a charm :D