Cum de a extrage textul bazat pe culoarea fontului dintr-o celulă din Excel?
Dacă aveți o listă de date cu un text roșu în fiecare celulă din Excel așa cum se arată în ecranul de mai jos și știi cum să extragi doar textul roșu? Acum voi introduce o modalitate rapidă de a rezolva puzzle-ul care extrage textul pe baza culorii fontului dintr-o celulă din Excel.
Extrageți textul pe baza culorii fontului din fiecare celulă
Instrumente de productivitate recomandate pentru Excel / Office
Tab-ul Office: Aduci editarea în tabele Excel și alte programe Office, la fel ca Chrome, Firefox și Safari.30-Free Unlimited Free Trial
Kutools pentru Excel: Caracteristicile puternice 300 fac din Excel mult mai ușor și crește productivitatea imediat.60-Free Unlimited Free Trial
Extrageți textul pe baza culorii fontului din fiecare celulă
În Excel, puteți utiliza funcția definită numai pentru a extrage textul pe baza culorii fontului.
1. presa Alt + F11 chei împreună pentru a deschide fereastra Microsoft Visual Basic for Applications.
2. clic Insera > Module și copiați următorul cod VBA în fereastra afișată.
VBA: Extrage textul pe baza culorii fontului
Function GetColorText(pRange As Range) As String 'Updateby20141105 Dim xOut As String Dim xValue As String Dim i As Long xValue = pRange.Text For i = 1 To VBA.Len(xValue) If pRange.Characters(i, 1).Font.Color = vbRed 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ă necompletată de lângă lista de date, tastați această formulă = GetColorText (A1) (A1 indică celula la care doriți să extrageți text), apăsați Introduce pentru a obține textul necesar, apoi trageți mânerul pentru completarea automată pentru a completa formula la intervalul dorit.
Acum puteți vedea că tot textul roșu este extras.
Sfat: În codul VBA de mai sus, dacă aveți nevoie să extrageți textul negru din celule, puteți schimba numele culorii Culoare = vbRed la Culoare = vbBlack.
Articole relative:
Instrumente de productivitate recomandate
Tab-ul Office
Aduceți file la îndemână Excel și alte programe Office, la fel ca Chrome, Firefox și noul Internet Explorer.
Kutools pentru Excel
Uimitor! Sporiți productivitatea în minute 5. Nu aveți nevoie de abilități speciale, cu excepția a două ore în fiecare zi!
300 Caracteristici noi pentru Excel, Make Excel mult mai ușor și mai puternic:
- Mergeți celule / rânduri / coloane fără a pierde date.
- Combină și consolidează mai multe coli și foi de lucru.
- Comparați intervale, copiați mai multe intervale, convertiți textul în data, conversia unității și monedelor.
- Numărați după culori, subtotalări pentru pagini, sortare avansată și filtru super,
- Mai mult Selectați / Inserați / Ștergeți / Text / Format / Link / Comment / Workbooks / Foi de lucru Instrumente ...