Evan ha un foglio di lavoro che contiene una serie di notazioni di composti chimici, come H2O. Quando entra per la prima volta nel composto, può formattare il 2 come pedice, come dovrebbe essere. Tuttavia, Evan deve cercare istanze in cui il 2 non è sottoscritto e sostituirlo con la notazione correttamente sottoscritta. Si chiede se ci sia un modo semplice per farlo.

Non è possibile eseguire questa operazione utilizzando le funzionalità Trova e sostituisci di Excel.

La ragione? Come ha affermato un abbonato a ExcelTips, “Excel è incredibilmente pessimo nel gestire il rich text nelle celle”. La prova di ciò è il fatto stesso che non è possibile cercare la formattazione mista all’interno di una cella o sostituirla con una formattazione mista.

Nota che ho detto “formattazione mista”, che è quello che vuole Evan – la “H”

e “O” utilizzano una formattazione diversa da “2”. Se Evan avesse voluto modificare l’intero contenuto della cella in testo normale o iscriversi, avresti potuto utilizzare il normale strumento Trova e sostituisci. Tuttavia, non funzionerà per la formattazione mista.

Ciò significa che l’approccio migliore è utilizzare una macro per eseguire la ricerca e la sostituzione. Ci sono diversi modi per affrontare questo problema; il seguente è solo uno.

Sub SubscriptNumbers()

Dim c As Range     Dim sWord As String     Dim sChar As String     Dim x As Long

For Each c In Selection         sWord = c.Value         For x = 1 To Len(sWord)

sChar = Mid(sWord, x, 1)

If sChar >= "0" And sChar <= "9" Then                 c.Characters(Start:=x, Length:=1).Font _                   .Subscript = True             End If         Next x     Next c     Set c = Nothing End Sub

Per utilizzare la macro, seleziona le celle che desideri modificare e quindi eseguila.

Passa attraverso ogni cella nella selezione e quindi esamina il contenuto della cella. Se sono presenti cifre nel contenuto, tali cifre vengono formattate come pedice.

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (13362) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 e Excel in Office 365.