Two Fonts in One Cell

[TFCJamieFay]

Hi all,

I'm trying to use two fonts in one cell. I'm using a formula that concatenates the values from two cells for my data labels in a waterfall chart. One cell has the label and should be formatted as Calibri, size 11 and the second cell has either a "P" or "Q" formatted as Webdings3. Is it possible to concatenate these two cells and use their original fonts?

Many thanks,

Jay

 

[rlcole]

This is great. How can I concatenate columns of cells with different fonts? That is, not only a1 & b1 concatenated in c1, but also a2 & b2 in c2, a3 & b3 in c3, etc.

 

[Peter_SSs]

This is great. How can I concatenate columns of cells with different fonts? That is, not only a1 & b1 concatenated in c1, but also a2 & b2 in c2, a3 & b3 in c3, etc.

Welcome to the MrExcel board!

Start by testing the setup & code in post #8 to see if that is the sort of thing that might be useful for you.

 

[Syamsyir]

Welcome to the MrExcel board!

Start by testing the setup & code in post #8 to see if that is the sort of thing that might be useful for you.

I have tried, but it doesn't work. This is the code modification that I try. Could you please help me how to make some alteration of the given code especially the bold one. Looking forward to your assistance. thank you.

Sub concatenatecode()
Dim Val1 As String, Val2 As String, Val3 As String
Dim Fname1 As String, Fname2 As String, Fname3 As String
Dim Fsize1 As Long, Fsize2 As Long, Fsize3 As Long
Dim Lng1 As Long, Lng2 As Long, Lng3 As Long
With Range("A1")
    Val1 = .Value
    Fname1 = .Font.Name
    Fsize1 = .Font.Size
    Lng1 = Len(.Value)
    Fstyle1 = .Font.FontStyle
End With
With Range("A2")
    Val2 = .Value
    Fname2 = .Font.Name
    Fsize2 = .Font.Size
    Lng2 = Len(.Value)
    Fstyle2 = .Font.FontStyle
End With
With Range("A3")
    Val3 = .Value
    Fname3 = .Font.Name
    Fsize3 = .Font.Size
    Lng3 = Len(.Value)
    Fstyle3 = .Font.FontStyle
End With




With Range("A5")
    .Value = Val1 & Chr(10) & Val2 & Chr(10)
 
    .Characters(1, Lng1).Font.Name = Fname1
    .Characters(1, Lng1).Font.Size = Fsize1
    .Characters(1, Lng1).Font.FontStyle = Fstyle1
    .Characters(Lng1 + 1, Lng2).Font.Name = Fname2
    .Characters(Lng1 + 1, Lng2).Font.Size = Fsize2


    
    
End With
End Sub