In Excel, bare du kan bruke den definerte funksjonen til å trekke ut teksten basert på skriftfarge.
1. Trykk ALT + F11 tastene sammen for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul og kopiere oppfølging VBA koden til spratt ut vinduet
VBA. Pakk tekst basert på skriftfarge
Funksjon GetColorText (Prange As Range) As String 'Updateby20141105 Dim xOut As String Dim xVerdi As String Dim i As Long xVerdi = pRange.Text For i = 1 Til VBA.Len (xVerdi) Hvis pRange.Characters (i, 1) .Font.Color = vbRed Så xOut = xOut & VBA.Mid (xVerdi, i, 1) End If Neste GetColorText = xOutEnd Function3. Deretter lagre og lukke dialogboksen, og velg en tom celle ved siden av listedata, skriver denne formelen = GetColorText (A1) (A1 indikerer cellen du ønsker å trekke ut tekst fra), trykker du på Enter-tasten for å få den nødvendige teksten, deretter dra Autofyll håndtaket for å fylle formelen til området du ønsker
Nå kan du se alle røde teksten er hentet
Tips:.. I ovennevnte VBA-kode, hvis du trenger å trekke ut svart tekst fra celler, du kan endre fargenavnet Color = vbRed til Color = vbBlack.
Datamaskin læring 