Wenn Sie Subcript / Superscript-Text in entsprechendes HTML-Markup konvertieren möchten, erstellen Sie eine VBA-Funktion (drücken Sie ALT+ F11, um zum Editor zu gelangen), und zwar mit folgendem Code:
Function SubToHtml(rng As Range) Dim c, ns As String For i = 1 To Len(rng.Value) Step 1 c = rng.Characters(i, 1).Text If rng.Characters(i, 1).Font.Subscript Then ns = ns & "<sub>" & c & "</sub>" ElseIf rng.Characters(i, 1).Font.Superscript Then ns = ns & "<sup>" & c & "</sup>" Else ns = ns & c End If Next i 'to take care of adjacent sub/superscript characters ns = Replace(ns, "</sub><sub>", "") ns = Replace(ns, "</sup><sup>", "") SubToHtml = ns End Function
Verwendungszweck
Angenommen, A1 enthält die Zeichenkette C 2 O 3 . Geben Sie diese Formel in eine leere Zelle ein:
=subtohtml(A1)
Es sollte dies in der Zelle als Ergebnis zeigen:
C<sub>2</sub>O<sup>3</sup>
Ersetzen Sie den Funktionsnamen, wenn Sie möchten. Ich konnte mir keinen schickeren vorstellen. : D AFAIK, es gibt keine Lösung ohne VBA. da müssten Sie jedes Zeichen in der Zelle durchgehen und das Groß- oder Kleinschreibungformat überprüfen.
Bearbeiten : Ich gehe davon aus, dass Ihre Texte keine angrenzenden Unter- / hochgestellten Zeichen enthalten. Für den Fall, dass sie dies tun, habe ich etwas Code eingefügt, der sich um Zeichenfolgen kümmert, die benachbarte sub / superscript-Zeichen enthalten, wie z. B. CO 20 .