Wenn Sie eine bestimmte formatierte Zelle oder farbige Zellen von einer Spalte in die nächste Spalte kopieren möchten, ist dieser Artikel genau das Richtige für Sie. In diesem Artikel erfahren Sie, wie Sie farbige Zellen mit VBA-Code kopieren.

Es folgt die Momentaufnahme der Daten, die wir haben, d. H. Spalte A enthält Daten mit wenigen gelb gefärbten Zellen.

So extrahieren Sie die Daten, die nur gelb hervorgehoben sind; Wir müssen eine UDF erstellen, um die farbigen Zellen nur in Spalte B

img1

anzuzeigen * Um eine benutzerdefinierte Funktion zu erstellen, führen Sie die folgenden Schritte aus:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

img2

aus * Wir müssen den folgenden Code in das Standardmodul

kopieren === Funktion IsYellow (ByRef r As Range)

Wenn r.Interior.ColorIndex = 6, dann

IsYellow = r.Value

Sonst

IsYellow = vbNullString

End If

End Function

img3

===

In Zelle B1 lautet die Formel * = IsYellow (A1)

img4

Der obige Code entspricht speziell der Farbe Nr. 6, die nur für die Farbe Gelb bestimmt ist. Daher extrahiert das udf nur die Werte, die Farbe # 6 enthalten.

Wenn wir rote Farbzellen extrahieren möchten, müssen wir die angegebene Farbnummer überprüfen und einfach durch eine gelbe Farbnummer ersetzen.

Auf diese Weise können wir die gelben Schriftfarbenzellen mithilfe von VBA-Code abrufen.

image 4