Crosswords0 min ago
excel spreadsheet formatting
Received a spreadsheet which is a bit uneasy on the eye, in that there is no break between rows.
To insert a blank row between each line of text, I can click each individually and then 'insert row' but this is labourious.
Is there a quick way of formatting the whole sheet? And can I make the blank rows a different height from text rows?
To insert a blank row between each line of text, I can click each individually and then 'insert row' but this is labourious.
Is there a quick way of formatting the whole sheet? And can I make the blank rows a different height from text rows?
Answers
Best Answer
No best answer has yet been selected by frankief. Once a best answer has been selected, it will be shown here.
For more on marking an answer as the "Best Answer", please visit our FAQ.Go to the Tools dropdown menu.
Select Macro then Select Macros.
From the Macros In: dropdown - select This Workbook
In the Macro name: box - give your macro the name of InsertRow
Now click the Create button - this will open a Visual Basic Module.
You will see that the module has the following in it :
Sub InsertRow()
End Sub
Delete these and Copy and Paste the code below into the module :
Sub InsertRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
Rows(i).EntireRow.Insert shift:=xlShiftDown
Next i
End Sub
Now go to the File dropdown menu and select Close and Return to Microsoft Excel. This will take you back to your worksheet.
Now go to the Tools dropdown menu, select Macro, then select Macros.
You will see your macro InsertRows highlighted - so just click Run.
That should do the trick for you.
BW
Select Macro then Select Macros.
From the Macros In: dropdown - select This Workbook
In the Macro name: box - give your macro the name of InsertRow
Now click the Create button - this will open a Visual Basic Module.
You will see that the module has the following in it :
Sub InsertRow()
End Sub
Delete these and Copy and Paste the code below into the module :
Sub InsertRow()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
Rows(i).EntireRow.Insert shift:=xlShiftDown
Next i
End Sub
Now go to the File dropdown menu and select Close and Return to Microsoft Excel. This will take you back to your worksheet.
Now go to the Tools dropdown menu, select Macro, then select Macros.
You will see your macro InsertRows highlighted - so just click Run.
That should do the trick for you.
BW