Wie extrahiere ich Text basierend auf der Schriftfarbe aus einer Zelle in Excel?
Wenn Sie eine Datenliste mit rotem Text in jeder Zelle in Excel haben, wie im folgenden Screenshot gezeigt, und wissen Sie, wie Sie nur den roten Text extrahieren können? Jetzt werde ich einen schnellen Weg vorstellen, um das Rätsel zu lösen, das Text basierend auf der Schriftfarbe aus einer Zelle in Excel extrahiert.
Extrahieren Sie Text basierend auf der Schriftfarbe aus jeder Zelle
Extrahieren Sie Text basierend auf der Schriftfarbe aus jeder Zelle
In Excel können Sie die definierte Funktion nur verwenden, um den Text basierend auf der Schriftfarbe zu extrahieren.
1. Drücken Sie Alt + F11 Tasten zusammen, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2 Klicken Insert > Modul und kopieren Sie den folgenden VBA-Code in das ausgeblendete Fenster.
VBA: Extrahieren Sie Text basierend auf der Schriftfarbe
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. Speichern und schließen Sie dann den Dialog und wählen Sie eine leere Zelle neben der Datenliste aus. Geben Sie diese Formel ein = GetColorText (A1) (A1 gibt die Zelle an, aus der Sie Text extrahieren möchten), drücken Sie Enter Drücken Sie die Taste, um den gewünschten Text zu erhalten, und ziehen Sie dann den Handle zum automatischen Ausfüllen, um die Formel in den gewünschten Bereich zu füllen.
Jetzt können Sie sehen, dass der gesamte rote Text extrahiert wird.
Tipp: Im obigen VBA-Code können Sie die Farbe rgb in diesem Skript TextColor = RGB (255, 0, 0) in andere ändern, um Ihre Anforderungen zu erfüllen.
Relative Artikel:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!