Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Add a blank row?
Is there an easy way to add a blank row after each sub-total in a spreadsheet
using VB? Thanks, Sandy |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VB Add a blank row?
assume the word Total in is column F
Sub Addrows() Dim lastrow as Long, i as Long lastrow = cells(rows.count,"F").end(xlup).row for i = lastrow to 2 step -1 if instr(1,cells(i,"F"),"Total",vbTextCompare) then rows(i).Insert end if Next End sub -- Regards, Tom Ogilvy "Sandy" wrote: Is there an easy way to add a blank row after each sub-total in a spreadsheet using VB? Thanks, Sandy |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Index/match - make blank cells return a blank value. | Excel Worksheet Functions | |||
Average Formula to display blank cell if named range is blank | Excel Worksheet Functions | |||
Copy to first Blank cell in Colum C Non blank cells still exist be | Excel Programming | |||
Not showing blank and non blank items in filter mode for values | Excel Worksheet Functions | |||
Macro code to test for blank row and insert blank row if false | Excel Programming |