Ændre tekstfarve i kolonne

Dim sidsteRække As Long
Dim ræk As Long
Public Sub ensretningAfTekstfarve()
    sidsteRække = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To sidsteRække
        Range("B" & ræk).Font.Color = Range("A" & ræk).Font.Color
    Next ræk
End Sub

Har kolonne B samme formatering som kolonne A udover tekst farve?

Hvis totalt ens formatering

Excel 2010
To muse-klik:

Højreklik på A vælg Formatpensel
Klik på B

Fra makro-optager:

Sub Makro1()
    Columns("A:A").Select
    Selection.Copy
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

Supertekst - det virker. Lægger du et svar.

Store-Morten - de har ikke total samme formatering, så Supertekst er den jeg bruger. Tak for forsøget.

Fint - svar er lagt i #1

Takker

Selv tak..