Hur extraherar jag text baserat på teckensnittsfärg från en cell i Excel?

Om du har en datalista med lite röd text i varje cell i Excel enligt bilden nedan, och vet du hur man endast extraherar den röda texten? Nu ska jag introducera ett snabbt sätt att lösa pusslet som extraherar text baserat på teckensnittsfärgen från en cell i Excel.

Extrahera text baserat på teckensnittsfärg från varje cell

Extrahera text baserat på teckensnittsfärg från varje cell

Fantastisk! Använda effektiva flikar i Excel som Chrome, Firefox och Safari!

Spara 50% av din tid och minska tusentals musklick åt dig varje dag!

---

I Excel kan du bara använda den definierade funktionen för att extrahera texten baserat på teckensnittsfärg.

1. Tryck Alt + F11 för att öppna Microsoft Visual Basic for Applications-fönstret.

2. klick Insert > Modulerna och kopiera följande VBA-kod till det poppade fönstret.

VBA: Extrahera text baserat på teckensnittsfärg

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. Spara och stäng sedan dialogrutan och välj en tom cell bredvid datalistan, skriv denna formel = GetColorText (A1) (A1 anger cellen du vill extrahera text från), tryck på ange för att få önskad text och dra sedan handtaget för autofyllning för att fylla formeln till det intervall du vill ha.

Nu kan du se all röd text extraheras.

Tips: I ovanstående VBA-kod kan du ändra färgen rgb i det här skriptet TextColor = RGB(255, 0, 0) till andra för att möta ditt behov.

Relativa artiklar:

• Extrahera endast fet text i Excel

• Extrahera decimalvärden i Excel

• Extrahera mellannamn i Excel

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

• Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
• Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
• Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...