Zoeken en vervangen met Subscripts

Evan heeft een blad dat een aantal chemische verbinding notaties, zoals H2O bevat. Toen hij primeurs komt in de verbinding, kan hij opmaken van de 2 als een onderschrift, zoals het hoort. Echter, Evan nodig heeft om te zoeken naar gevallen waarin de 2 niet is index't en te vervangen door de juiste subscript notatie. Hij vraagt ​​zich af of er een makkelijke manier om dit te doen.

Er is geen manier om dit te doen met behulp van de Zoeken en Vervangen functies van Excel. De reden? Zoals een ExcelTips abonnee zet het, "Excel is spectaculair slecht in het omgaan met rich text in cellen." Bewijs hiervan is het feit dat je niet kunt zoeken naar gemengde opmaak binnen een cel of te vervangen met gemengde opmaak.

Merk op dat ik zei "gemengde opmaak," dat is wat Evan wil-de "H" en "O" maken gebruik van verschillende opmaak dan de "2". Als Evan kant wilde de gehele inhoud van de cel veranderen in gewone tekst of in te schrijven, dan kun je gebruik hebben gemaakt van de reguliere Zoeken en Vervangen tool. Het zal niet werken voor gemengde opmaak, dat wel.

Dit betekent dat de beste benadering Macro voor het zoeken en vervangen doen zijn. Er zijn verschillende manieren waarop u kunt deze benaderen; Het volgende is slechts een.

Sub SubscriptNumbers ()
Dim c als Waaier
Dim zwaard als Koord
Dim Schär als Koord
Dim x As Long

Voor Elke c In Selection
zwaard = c.Value
Voor x = 1 To Len (zwaard)
Schär = Mid (zwaard, x, 1)
Als schar> = "0" En schar <= "9" Dan
c.Characters (Start: = x, Lengte: = 1) .Font _
.Subscript = True
End If
Volgende x
Volgende c
Set c = Nothing
End Sub

Om de macro te gebruiken, selecteert u de cellen die u wilt wijzigen en voer het uit. Het stappen door elke cel in de selectie en dan onderzoekt de celinhoud. Als die er zijn cijfers in de inhoud, dan zijn die cijfers worden opgemaakt als subscript.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (13.362) is van toepassing op Microsoft Excel 2007, 2010 en 2013.


© 2019 Quilcedacarvers.com | Contact us: webmaster# quilcedacarvers.com