How to Repeat Formated Row

[Guest]

Hi all,

I have to format some cells ( such as merge, setting border, font size etc)
in one row and repeat the same in the next and next. It is boring and
inconsistency-prone. Is there a simple way to duplicate the formatting.

Clara

 

[Guest]

Clara,

to get you started, the code below will loop through rows 1 to 10, merge col
A and B, turn on text wrap and set a border around the merged cell.

Dim i As Integer
For i = 1 To 10
With ActiveSheet.Range("A" & i & ":B" & i)
.Merge
.WrapText = True
.BorderAround xlContinuous, xlThin, xlColorIndexAutomatic
End With
Next i

 

[dq]

Clara,

Based on your question I think you're not looking for a
programmatically solution...

To do it manually in the interface: select the cells that are already
formatted an,d select Edit/Copy then select the range you want to
format the same and select Edit/Paste Special, choose formatting and
click OK.
If you turn the macro recorder on you can see haw to do this
programmatically.

DQ