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ă

Extrageți textul pe baza culorii fontului din fiecare celulă

Uimitor! Utilizarea filelor eficiente în Excel Ca Chrome, Firefox și Safari!

Î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:

• Extrageți textul cu caractere aldine numai în Excel

• Extrageți valorile zecimale în Excel

• Extrage nume de mijloc în Excel

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