Hogyan lehet kibontani a betűtípus színe alapján az Excel egyik cellájából a szöveget?

Ha az Excel minden cellájában van egy adatlista vörös szöveggel, az alábbi képernyőkép szerint, és tudja, hogyan lehet csak a piros szöveget kibontani? Most bemutatok egy gyors módszert annak a rejtvénynek a megoldására, amely kivonja a szöveget a betűszín alapján az Excel egyik cellájából.

Bontsa ki a szöveget betűszín alapján az egyes cellákból

Bontsa ki a szöveget betűszín alapján az egyes cellákból

Az Excelben csak a meghatározott függvényt használhatja a szöveg betűtípus színe alapján történő kibontására.

1. nyomja meg Alt + F11 gombokat együtt a Microsoft Visual Basic for Applications ablak megnyitásához.

2. kettyenés betétlap > Modulok és másolja a következő VBA kódot a felbukkanó ablakba.

VBA: Kivonat szöveg betűtípus színe alapján

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. Ezután mentse el és zárja be a párbeszédpanelt, és válasszon egy üres cellát az adatlista mellett, írja be ezt a képletet = GetColorText (A1) (Az A1 azt a cellát jelöli, amelyből szöveget szeretne kivonni), nyomja meg a gombot belép gombot a szükséges szöveg megszerzéséhez, majd húzza az automatikus kitöltési fogantyút a képlet kitöltéséhez a kívánt tartományba.

Most láthatja, hogy az összes piros szöveget kibontják.

típus: A fenti VBA-kódban megváltoztathatja az rgb színét ebben a szkriptben TextColor = RGB(255, 0, 0) másra, hogy megfeleljen az igényeinek.

Relatív cikkek:

• Csak félkövér szöveget vonjon ki az Excelből

• Bontsa ki a tizedesértékeket az Excelben

• Bontsa ki a középső nevet az Excelben