Insert Row

[nibrasboyz]

Dears,

i have attached a screen shot what i need please give me a easy and best solution soon as possible.

i have data in section "A" i need data like section "B"

attachement Link = https://drive.google.com/file/d/0B0kKZNWBdkd9cXg5OTdwNDNzb1E/view?usp=sharing
thanks

MH. Mohamed Nibras

 

[Steve_R]

Hi Mohamed

Do you mean if a value in column B is the same as the value immediately below, insert a row between them? If so, try the following

Sub InsRows()
Dim i, x

x = Worksheets("Sheet3").UsedRange.Rows.Count

For i = x To 2 Step -1

    If Range("B" & i).Value = Range("B" & i).Offset(-1).Value Then
        Range("B" & i).EntireRow.Insert
    End If
Next i

End Sub

If that is not what you want, you will need to explain a little more.

 

[nibrasboyz]

hi steve,

i have data in cell A1, A2, A3, A4, A5, .....

A	B	C
1	Nibras
2	Steve
3	Mohamed
4	Friend
5	Wife
6	Sister

<tbody>
</tbody>

then after i need

A	B	C
1	Nibras
2	Nibras
3
4	Steve
5	Steve
6
7	Mohamed
8	Mohamed
9
10	Friend
11	Friend
12
13	Wife
14	Wife
15
16	Sister
17	Sister

<tbody>
</tbody>

do you got it

 

[Rick Rothstein]

If all of your data are constants (that is, as long as there are no formulas on the sheet), then you can user this macro...

[table="width: 500"]
[tr]
	[td]Sub DoubleUpAndSeparate()
  Dim R As Long, C As Long, X As Long, Data As Variant, Result As Variant
  Data = Range("A1:E" & Cells(Rows.Count, "A").End(xlUp).Row)
  ReDim Result(1 To 3 * UBound(Data, 1), 1 To UBound(Data, 2))
  X = -2
  For R = 1 To UBound(Data, 1)
    X = X + 3
    For C = 1 To UBound(Data, 2)
      Result(X, C) = Data(R, C)
      Result(X + 1, C) = Data(R, C)
    Next
  Next
  Range("A1").Resize(UBound(Result, 1), UBound(Result, 2)) = Result
End Sub[/td]
[/tr]
[/table]