Üst Simge Formülü

Sub test() 
  Dim x As Integer 
  For x = 1 To 100 
      Dim lengthABCD As Integer 
      lengthABCD = Len(Cells(x, 1).Value) + Len(Cells(x, 2).Value) + Len(Cells(x, 3).Value) + Len(Cells(x, 4).Value) 
       
      Cells(x, 7).ClearContents 
      Cells(x, 7).Value = Cells(x, 1).Value & Cells(x, 2).Value & Cells(x, 3).Value & Cells(x, 4).Value & Cells(x, 5).Value & Cells(x, 6).Value 
       
      For i = 1 To Len(Cells(x, 7).Value) 
          If i <= Len(Cells(x, 1).Value) Or (i > lengthABCD And i <= lengthABCD + Len(Cells(x, 5).Value)) Then 
              Cells(x, 7).Characters(i, 1).Font.Superscript = True 
          Else 
              Cells(x, 7).Characters(i, 1).Font.Superscript = False 
          End If 
      Next i 
  Next x 
  End Sub