Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
how would I insert a row after a grouping of duplicate names?
|
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
how would I insert a row after a grouping of duplicate names?
Sub InsertRow_At_Change()
'Sandy Mann July 1st, 2007 Dim LastRow As Long Dim X As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row Application.ScreenUpdating = False For X = LastRow To 3 Step -1 If Cells(X, 1).Value < Cells(X - 1, 1).Value Then If Cells(X, 1).Value < "" Then If Cells(X - 1, 1).Value < "" Then Cells(X, 1).entirerow.Insert Shift:=xlDown End If End If End If Next X Application.ScreenUpdating = True End Sub Gord Dibben MS Excel MVP On Wed, 23 Apr 2008 08:53:01 -0700, cathit wrote: |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Duplicate names | Excel Discussion (Misc queries) | |||
How do you delete duplicate addresses, but keep duplicate names? | Excel Discussion (Misc queries) | |||
deleting duplicate names | Excel Discussion (Misc queries) | |||
deleting duplicate names | Excel Worksheet Functions | |||
Selecting ALL names when using Insert/Names/Apply | Excel Worksheet Functions |