май трябва макрос. Например
Sub copyFormat(R1 As String, R2 As String)
Range(R1).Select
Selection.Copy
Range(R2).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

Ще трябва и бутонче, на което да се присвои
Sub Button1_Click()
copyFormat "A1", "A2"
End Sub