From: Kevin on
Question
Here is a problem I have:
123456789
134567890
135678901
1456789012
157890123
this group of numbers is in my Sheet and each line is in a row by itself and
they are in 9 different columns. for brevity I just used 9 numbers for each
line. I need to know if there is a way to auto insert a row between each
individual number. My real SS will have about 900 rows with 60 characters
per row that I have already performed text to columns on. There Can be as
few as 1 row per number or as many as 25 rows per number. in the sample
above the second number would be the dividing line Please help
From: Gord Dibben on
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 Sat, 8 May 2010 12:01:00 -0700, Kevin <Kevin(a)discussions.microsoft.com>
wrote:

>Question
> Here is a problem I have:
>123456789
>134567890
>135678901
>1456789012
>157890123
>this group of numbers is in my Sheet and each line is in a row by itself and
>they are in 9 different columns. for brevity I just used 9 numbers for each
>line. I need to know if there is a way to auto insert a row between each
>individual number. My real SS will have about 900 rows with 60 characters
>per row that I have already performed text to columns on. There Can be as
>few as 1 row per number or as many as 25 rows per number. in the sample
>above the second number would be the dividing line Please help

 | 
Pages: 1
Prev: FIND ERROR PROBLEM
Next: table lookup