ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   please help (https://www.excelbanter.com/excel-programming/316149-please-help.html)

samsg

please help
 

Hi, i have a list of values like this:

54
24
31
...

I want to place number 54 and then leave 4 blank spaces, the plac
number 24, and 4 blanks, and so on, so it would look like this

54


24


31
...

How can i do this automatically?, the list is too long to insert
cells and then press f4 for each value, is there an autofill that ca
skip rows , or something that can help me??

Thanks a lot for the hel

--
sams
-----------------------------------------------------------------------
samsg's Profile: http://www.excelforum.com/member.php...fo&userid=1624
View this thread: http://www.excelforum.com/showthread.php?threadid=27652


mangesh_yadav[_177_]

please help
 

not smart enough, but workable...

Sub Button1_Click()

Set rng = Range("A:A")
rng.Cells(1, 1).Select
i = 1

While Not IsEmpty(ActiveCell)

If i 1 Then
rng.Cells(i, 1).EntireRow.Insert
rng.Cells(i + 1, 1).EntireRow.Insert
rng.Cells(i + 2, 1).EntireRow.Insert
rng.Cells(i + 3, 1).EntireRow.Insert
rng.Cells(i + 5, 1).Select
i = ActiveCell.Row
Else
i = i + 1
End If
Wend

End Sub


- Manges

--
mangesh_yada
-----------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...fo&userid=1047
View this thread: http://www.excelforum.com/showthread.php?threadid=27652


Bob Phillips[_6_]

please help
 
Dim cRows As Long
Dim i As Long

cRows = Cells(Rows.Count, "A").End(xlUp).Row
For i = cRows To 2 Step -1
Cells(i, "A").Resize(4, 1).EntireRow.Insert
Next i

--

HTH

RP
(remove nothere from the email address if mailing direct)


"samsg" wrote in message
...

Hi, i have a list of values like this:

54
24
31
..

I want to place number 54 and then leave 4 blank spaces, the place
number 24, and 4 blanks, and so on, so it would look like this

54


24


31
..

How can i do this automatically?, the list is too long to insert 4
cells and then press f4 for each value, is there an autofill that can
skip rows , or something that can help me??

Thanks a lot for the help


--
samsg
------------------------------------------------------------------------
samsg's Profile:

http://www.excelforum.com/member.php...o&userid=16245
View this thread: http://www.excelforum.com/showthread...hreadid=276521





All times are GMT +1. The time now is 12:20 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com