Πώς να εξαγάγετε κείμενο βάσει χρώματος γραμματοσειράς από ένα κελί στο Excel;

Εάν έχετε μια λίστα δεδομένων με κάποιο κόκκινο κείμενο σε κάθε κελί στο Excel, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, και ξέρετε πώς να εξαγάγετε μόνο το κόκκινο κείμενο; Τώρα θα παρουσιάσω έναν γρήγορο τρόπο επίλυσης του παζλ που εξάγει κείμενο με βάση το χρώμα της γραμματοσειράς από ένα κελί στο Excel.

Εξαγωγή κειμένου με βάση το χρώμα της γραμματοσειράς από κάθε κελί

Εξαγωγή κειμένου με βάση το χρώμα της γραμματοσειράς από κάθε κελί

Στο Excel, μπορείτε να χρησιμοποιήσετε μόνο την καθορισμένη συνάρτηση για εξαγωγή του κειμένου με βάση το χρώμα της γραμματοσειράς.

1. Τύπος Alt + F11 για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησης και αντιγράψτε τον ακόλουθο κώδικα VBA στο αναδυόμενο παράθυρο.

VBA: Εξαγωγή κειμένου με βάση το χρώμα της γραμματοσειράς

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. Στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο διαλόγου και επιλέξτε ένα κενό κελί δίπλα στη λίστα δεδομένων, πληκτρολογήστε αυτόν τον τύπο = GetColorText (A1) (Το Α1 υποδεικνύει το κελί από το οποίο θέλετε να εξαγάγετε κείμενο), πατήστε εισάγετε για να λάβετε το απαραίτητο κείμενο και, στη συνέχεια, σύρετε τη λαβή αυτόματης συμπλήρωσης για να συμπληρώσετε τον τύπο στο εύρος που θέλετε.

Τώρα μπορείτε να δείτε ότι εξάγεται όλο το κόκκινο κείμενο.

Άκρο: Στον παραπάνω κώδικα VBA, μπορείτε να αλλάξετε το χρώμα rgb σε αυτό το σενάριο TextColor = RGB(255, 0, 0) σε άλλα για να καλύψετε τις ανάγκες σας.

Σχετικά άρθρα:

• Εξαγωγή έντονου κειμένου μόνο στο Excel

• Εξαγωγή δεκαδικών τιμών στο Excel

• Εξαγωγή μεσαίου ονόματος στο Excel