Kako iz celice v Excelu izvleči besedilo na podlagi barve pisave?

Če imate v vsaki celici v Excelu seznam podatkov z nekaj rdečega besedila, kot je prikazano na sliki spodaj, in ali veste, kako izvleči samo rdeče besedilo? Zdaj bom predstavil hiter način reševanja sestavljanke, ki črpa besedilo na podlagi barve pisave iz celice v Excelu.

Iz vsake celice izvlecite besedilo na podlagi barve pisave

Iz vsake celice izvlecite besedilo na podlagi barve pisave

V Excelu lahko določeno funkcijo uporabite samo za izvlečenje besedila glede na barvo pisave.

1. Pritisnite Alt + F11 da odprete okno Microsoft Visual Basic for Applications.

2. klik Vstavi > Moduli in kopirajte naslednjo kodo VBA v pojavno okno.

VBA: Izvleček besedila glede na barvo pisave

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. Nato shranite in zaprite pogovorno okno ter izberite prazno celico poleg seznama podatkov, vnesite to formulo = GetColorText (A1) (A1 označuje celico, iz katere želite izvleči besedilo), pritisnite Vnesite tipko, da dobite potrebno besedilo, nato povlecite ročico za samodejno izpolnjevanje, da izpolnite formulo do želenega obsega.

Zdaj lahko vidite, da je izvlečeno vse rdeče besedilo.

Nasvet: V zgornji kodi VBA lahko spremenite barvo rgb v tem skriptu TextColor = RGB(255, 0, 0) v druge, da ustrezajo vašim potrebam.

Sorodni članki:

• Izvleči krepko besedilo samo v Excelu

• Izvlecite decimalne vrednosti v Excelu

• Izvlecite srednje ime v Excelu