LinkBack Thread Tools Search this Thread Display Modes
Prev Previous Post   Next Post Next
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 9
Default Insert letter into empty row ?

Hi there,
I have a spreadsheet with two columns Column A "level" and cloumn B "Task"
and about 100 rows.
I needed to insert 7 empty row between each raw and I have this macro to do
this jub

Option Explicit
Sub InsertBlankRows()
Application.ScreenUpdating = False
Dim numRows As Integer
Dim r As Long
Dim Rng As Range
Dim lastrw As Long
numRows = InputBox("How many Rows")
lastrw = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range(Cells(1, "A"), Cells(lastrw, "A"))
For r = Rng.Rows.Count To 1 Step -1
Rng.Rows(r + 1).Resize(numRows).EntireRow.Insert
Next r
Application.ScreenUpdating = True
End Sub

now on cloumn B in the empty rows (7) I need to insert
a leeters
empty rows 1 B
empty rows 1 B
empty rows 1 B
empty rows 1 B
empty rows 1 B
empty rows 1 B
empty rows 1 B


 
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Insert a letter in front of number in every cell? [email protected] Excel Worksheet Functions 4 April 2nd 23 08:06 PM
I WANT TO INSERT A LETTER IN FRONT OF A NUMBERS Nathan Excel Worksheet Functions 6 September 16th 09 06:00 AM
Insert letter in cell nc Excel Discussion (Misc queries) 2 July 5th 09 10:15 PM
Insert letter/no among word ShamsulZ Excel Discussion (Misc queries) 2 October 5th 06 10:39 AM
Insert and sum in empty cell salsal Excel Worksheet Functions 4 July 5th 06 04:17 PM


All times are GMT +1. The time now is 09:18 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"