Wie zum extrahieren von text basierend auf Schriftfarbe aus einer Zelle mit text in mehreren Farben

Ich habe eine Spalte mit Daten (A). Die Daten in jeder Zelle in Spalte (A) ist die Hälfte einer Farbe und die Hälfte eine andere Farbe. Zum Beispiel, sagen wir, der erste Teil der Zeichenkette ist rot und der zweite Teil der Zeichenkette ist schwarz. Die Länge des roten und schwarzen Zeichenketten innerhalb jeder Zelle variiert ohne Muster. Die Art der Zeichen, die sind rot und schwarz variieren, ohne Muster. Es gibt keine Leerzeichen oder Sonderzeichen trennt, dass die roten Figuren aus den schwarzen Zeichen in jeder Zelle. Ich möchte zu extrahieren und kopieren Sie die roten Zeichen aus jeder Zelle in einer neuen Spalte (B) mit Hilfe einer Formel oder Funktion. Vorschläge?

(A) Original..........(B) Rot

abjksglkjaf..........abjk

kjd3kdn9j............kjd3kd

2hn89dslkjh..........2hn

InformationsquelleAutor user3263430 | 2014-02-02
  1. 11

    Können Sie diese benutzerdefinierte Funktion:

    Function redPart(x As Range) As String
    Dim res As String
    With x
        For i = 1 To Len(.Value)
            ' red = RGB(255, 0, 0)
            If .Characters(i, 1).Font.Color = RGB(255, 0, 0) Then
                res = res & .Characters(i, 1).Text
            End If
        Next
    End With
    redPart = res
End Function

    Schreibe einfach in Zelle B1 Formel =redPart(A1) und ziehen Sie es nach unten.

    Ergebnis:

    Wie zum extrahieren von text basierend auf Schriftfarbe aus einer Zelle mit text in mehreren Farben

    • Es gibt ein problem mit diesem code. Wenn die Zeichen, die durch Leerzeichen getrennt sind, extrahiert es Sie alle zusammen, BSP: "Rot-Rot" nach der Extraktion wäre: "RedRed"
    InformationsquelleAutor Dmitry Pavliv
Schreibe einen Kommentar