특정 색상의 텍스트를 다른 색상으로 일괄 변경하는 방법

Sub FontColorPartOfText()
    'Source: https://powerspreadsheets.com/
    'More information: https://powerspreadsheets.com/vba-font-color-part/
 
    'Declare the following:
        'Step 1: Object variable to represent cell where you change the font color for part of the text
        'Variable to represent:
            'Step 2: Full text (with the substring whose font color you change)
            'Step 3: The text portion (substring) whose font color you change
            'Step 4: Number of characters in text portion (substring) whose font color you change
        'Step 2: Loop iteration variable
    Dim MyCell As Range
    Dim MyFullText As String
    Dim MyTextToChangeColor As String
    Dim MyTextToChangeColorLength As Long
    Dim iCounter As Long
 
    'Step 1: Assign object reference (to cell A6 in the "Excel VBA Font Color Part Text" worksheet in this workbook) to MyCell object variable
    Set MyCell = ThisWorkbook.Worksheets("Excel VBA Font Color Part Text").Range("A6")
 
    'Step 2: Assign string stored in cell represented by MyCell object variable to MyFullText variable
    MyFullText = MyCell.Value
 
    'Step 4: Assign string with text whose color you change to MyTextToChangeColor variable
    MyTextToChangeColor = "text"
 
    'Step 4: Assign number of characters in string represented by MyTextToChangeColor variable to MyTextToChangeColorLength variable
    MyTextToChangeColorLength = Len(MyTextToChangeColor)
 
    'Step 2: Loop from 1 to the number of characters in the string represented by MyFullText variable
    For iCounter = 1 To Len(MyFullText)
 
        'Do the following:
            'Step 4: Extract a helper string from the string represented by the MyFullText variable
                'Starting at the position equal to the current loop iteration
                'With a length equal to the number represented by the MyTextToChangeColorLength variable
            'Step 5: Test whether the helper string is equal to the string represented by the MyTextToChangeColor variable
            'Step 6: If the helper string is equal to the string represented by the MyTextToChangeColor variable, change the text portion (substring) whose font color you change
        If Mid(MyFullText, iCounter, MyTextToChangeColorLength) = MyTextToChangeColor Then
 
            'Step 7: Identify the part of text whose font color you change
            'Step 8: Use the RGB function to set the value of the Font.Color property. Specify the red, green, and blue components of the color as follows:
                'Red: 0
                'Green: 128
                'Blue: 55
            MyCell.Characters(iCounter, MyTextToChangeColorLength).Font.Color = RGB(0, 128, 55)
 
        End If
 
    Next iCounter
 
End Sub