Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB: How do I find next blank row then add another blank row
I have a fairly large spreadsheet wherein there are multiple rows of related
data separated by single blank rows. I need VB code that will find each of the blank rows and then add another blank row adjacent to it so that I will have a total of 2 blank rows between each set of related data. Any suggestions would be greatly appreciated! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB: How do I find next blank row then add another blank row
Hi,
Assuming by blank you mean empty (does not contains empty string ""). Can such blank rows be located by only looking if the cell is blank in a particular column? If so, say it is column A. then for A1:A100: Dim rg As Range Set rg = Range("A1:A100").SpecialCells(xlCellTypeBlanks) rg.EntireRow.Insert shift:=xlDown -- Regards, Sébastien "TB" wrote: I have a fairly large spreadsheet wherein there are multiple rows of related data separated by single blank rows. I need VB code that will find each of the blank rows and then add another blank row adjacent to it so that I will have a total of 2 blank rows between each set of related data. Any suggestions would be greatly appreciated! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Index/match - make blank cells return a blank value. | Excel Worksheet Functions | |||
Excel 2002: Return blank when VLOOKUP on blank cells | Excel Discussion (Misc queries) | |||
Average Formula to display blank cell if named range is blank | Excel Worksheet Functions | |||
Find First Non blank cell than find column header and return that value | Excel Worksheet Functions | |||
Copying and pasting a worksheet to a blank and removing blank rows | Excel Programming |