Cum se extrage textul bazat pe culoarea fontului dintr-o celulă din Excel?
Dacă aveți o listă de date cu un anumit text roșu în fiecare celulă din Excel, așa cum se arată în imaginea de mai jos, și știți cum să extrageți numai textul roșu? Acum voi introduce o modalitate rapidă de a rezolva puzzle-ul care extrage text pe baza culorii fontului dintr-o celulă din Excel.
Extrageți text pe baza culorii fontului din fiecare celulă
Extrageți text pe baza culorii fontului din fiecare celulă
În Excel, puteți utiliza numai funcția definită pentru a extrage textul pe baza culorii fontului.
1. presa Alt + F11 tastele împreună pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.
2. clic Insera > Module și copiați următorul cod VBA în fereastra pop-out.
VBA: extrageți text pe baza culorii fontului
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. Apoi salvați și închideți dialogul și selectați o celulă goală lângă lista de date, tastați această formulă = GetColorText (A1) (A1 indică celula din care doriți să extrageți text), apăsați Intrați pentru a obține textul necesar, apoi trageți mânerul de completare automată pentru a completa formula în intervalul dorit.
Acum puteți vedea că toate textele roșii sunt extrase.
varful: În codul VBA de mai sus, puteți schimba culoarea rgb din acest script TextColor = RGB(255, 0, 0) pentru a vă satisface nevoia.
Articole relative:
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!