aşağıdaki kodu kullanırsanız excele renkli alırsınız

For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=red>") > 0 Then Range("c" & x).Font.Color = vbRed

    Range("c" & x) = PlainText(Range("c" & x))

Next x