Concatenate with Superscripted Text

[thespardian]

The text is the column D is formated as superscript. I concatenate the Column A,B,C and D in the column F.

Book1.xlsm
	A	B	C	D	E	F
1	0.99	±	0.03	A		0.99±0.03A
2	0.99	±	0.03	A		0.99±0.03A
3	0.99	±	0.01	A		0.99±0.01A
4	0.99	±	0.03	A		0.99±0.03A
5	0.99	±	0.02	A		0.99±0.02A
6	0.96	±	0.02	AB		0.96±0.02AB
7	0.96	±	0.02	AB		0.96±0.02AB
8	0.93	±	0.02	ABC		0.93±0.02ABC
9	0.93	±	0.01	ABC		0.93±0.01ABC
10	0.93	±	0.02	ABC		0.93±0.02ABC
11	0.92	±	0.01	ABCD		0.92±0.01ABCD
12	0.92	±	0.01	ABCD		0.92±0.01ABCD
13	0.92	±	0.02	ABCD		0.92±0.02ABCD
14	0.87	±	0.02	BCDE		0.87±0.02BCDE
15	0.82	±	0.05	BCDE		0.82±0.05BCDE
16	0.82	±	0.02	BCDE		0.82±0.02BCDE
17	0.81	±	0.02	CDE		0.81±0.02CDE
18	0.79	±	0.05	DEF		0.79±0.05DEF
Sheet1

Cell Formulas
Range	Formula
F1:F18	F1	=A1&B1&C1&D1

i want my result as highlighted in the yellow in the picture below. Please note that the last part of the column F (which is the text in columnD) is superscipted. Any help will be highly appreciated.

 

[Joe4]

i want my result as highlighted in the yellow in the picture below

What picture?

 

[thespardian]

 

[thespardian]

@Joe4 I am really sorry. I couldn't upload the picture in the question.​

 

[Joe4]

From everything I read, you cannot do that with an Excel formula.
You would need to use VBA. There are some examples shown here:

Superscript in Formulas

Hello, In Cell A1, I have the number 1.085 (although this could be anything, as it gets calculated based on other cells). In Cell A2, I have the number 27 (again, this can change). In Cell A3, I want it to display A1 to the power of A2 (not the result of that sum, but the actual text). For...

www.mrexcel.com

11 Ways to Add Subscripts or Superscripts in Microsoft Excel | How To Excel (see "Add Subscript or Superscript with VBA" section of post)

 

[thespardian]

@Joe4 thanks for the link. I am newbie with vb and couldn't find a way to solve my problem with the link you provided. can you please write the code for me?

 

[Georgiboy]

I was working on the below, it should help:

Sub test()
    Dim rng As Range, rCell As Range
    
    Set rng = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    
    For Each rCell In rng
        With rCell
            .Offset(, 5) = Join(Array(.Value, .Offset(, 1), .Offset(, 2), .Offset(, 3)), "")
            .Offset(, 5).Characters(Len(.Offset(, 5)) - Len(.Offset(, 3)) + 1, Len(.Offset(, 3))).Font.Superscript = True
        End With
    Next rCell
End Sub

 

[thespardian]

@Georgiboy
Thanks a ton for the input. It working like magic. I really thankful to you.

 

[Georgiboy]

You are welcome