How do I add a larger sized, blank every other row in a spread she
I have a spread sheet full of data. I need to incert a larger sized, blank
row in every other space? Macro possible. I have this macro: Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 1 Set rng = ActiveSheet.UsedRange For R = rng.Rows.count To 1 Step -1 rng.rows(R + 1). Resize(numrows).EntireRow.Insert Next R Application.ScreenUpdating = True This will add the row, I just need it to be a larger size. Thanks Jim |
Selection.RowHeight = 25.5 (or whatever size you want)
"Jimv" wrote: I have a spread sheet full of data. I need to incert a larger sized, blank row in every other space? Macro possible. I have this macro: Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 1 Set rng = ActiveSheet.UsedRange For R = rng.Rows.count To 1 Step -1 rng.rows(R + 1). Resize(numrows).EntireRow.Insert Next R Application.ScreenUpdating = True This will add the row, I just need it to be a larger size. Thanks Jim |
Bigwheel,
Where do I insert this to make every other row larger? Thanks "bigwheel" wrote: Selection.RowHeight = 25.5 (or whatever size you want) "Jimv" wrote: I have a spread sheet full of data. I need to incert a larger sized, blank row in every other space? Macro possible. I have this macro: Sub test() Application.ScreenUpdating = False Dim numRows As Integer Dim R As Long Dim rng As Range numRows = 1 Set rng = ActiveSheet.UsedRange For R = rng.Rows.count To 1 Step -1 rng.rows(R + 1). Resize(numrows).EntireRow.Insert Next R Application.ScreenUpdating = True This will add the row, I just need it to be a larger size. Thanks Jim |
All times are GMT +1. The time now is 02:17 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com