Hoe extraheer ik tekst op basis van lettertypekleur uit een cel in Excel?
Als u een gegevenslijst heeft met wat rode tekst in elke cel in Excel, zoals weergegeven in de onderstaande schermafbeelding, en weet u hoe u alleen de rode tekst kunt extraheren? Nu zal ik een snelle manier introduceren om de puzzel op te lossen die tekst extraheert op basis van de lettertypekleur uit een cel in Excel.
Extraheer tekst op basis van lettertypekleur uit elke cel
Extraheer tekst op basis van lettertypekleur uit elke cel
In Excel kunt u alleen de gedefinieerde functie gebruiken om de tekst te extraheren op basis van lettertypekleur.
1. druk op Alt + F11 toetsen samen om het venster Microsoft Visual Basic for Applications te openen.
2. klikken Invoegen > Module en kopieer de volgende VBA-code naar het uitgeklapte venster.
VBA: extraheer tekst op basis van lettertypekleur
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. Sla vervolgens het dialoogvenster op en sluit het, en selecteer een lege cel naast de gegevenslijst, typ deze formule = GetColorText (A1) (A1 geeft de cel aan waaruit u tekst wilt extraheren), druk op Enter -toets om de benodigde tekst te krijgen en sleep vervolgens de hendel voor automatisch aanvullen om de formule tot het gewenste bereik te vullen.
Nu kunt u zien dat alle rode tekst is geëxtraheerd.
Tip: In de bovenstaande VBA-code kunt u de kleur rgb in dit script TextColor = RGB (255, 0, 0) naar anderen wijzigen om aan uw behoefte te voldoen.
Relatieve artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
