Come estrarre il testo in base al colore del carattere da una cella in Excel?
Se hai un elenco di dati con del testo rosso in ogni cella in Excel, come mostrato nell'immagine sottostante, e sai come estrarre solo il testo rosso? Ora introdurrò un modo rapido per risolvere il puzzle che estrae il testo in base al colore del carattere da una cella in Excel.
Estrai il testo in base al colore del carattere da ogni cella
Estrai il testo in base al colore del carattere da ogni cella
In Excel, puoi solo utilizzare la funzione definita per estrarre il testo in base al colore del carattere.
1. Stampa Alt + F11 tasti insieme per aprire la finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Moduli e copia il seguente codice VBA nella finestra saltata fuori.
VBA: estrai il testo in base al colore del carattere
Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
If pRange.Characters(i, 1).Font.Color = TextColor Then
xOut = xOut & VBA.Mid(xValue, i, 1)
End If
Next
GetColorText = xOut
End Function
3. Quindi salvare e chiudere la finestra di dialogo e selezionare una cella vuota accanto all'elenco dei dati, digitare questa formula = GetColorText (A1) (A1 indica la cella da cui si desidera estrarre il testo), premere entrare per ottenere il testo necessario, quindi trascinare la maniglia di riempimento automatico per riempire la formula nell'intervallo desiderato.
Ora puoi vedere che tutto il testo rosso viene estratto.
Consiglio: Nel codice VBA sopra, puoi cambiare il colore rgb in questo script TextColor = RGB(255, 0, 0) ad altri per soddisfare le tue esigenze.
Articoli relativi:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!