Excel VBA：如何更改括号中文本的字体颜色？

Question

我有一个从另一个论坛复制的代码，该代码贯穿一系列单元格，并将包含括号的单元格中的字符复制到相邻单元格。我想做的只是改变括号内字符的字体颜色以及括号。我设法调整了代码，以便包含括号，但我不知道如何更改字体颜色。我相信如果我没记错的话，它需要一行代码，也许两行。代码如下：

Dim n, i As Long
With CreateObject("vbscript.regexp")
.Pattern = "(\(\w+\))"
.Global = True
    For i = 1 To 10
        Set myMatches = .Execute(Cells(i, 1))
    
        For Each n In myMatches
            Cells(i, 2).Value = Mid(n, 1, Len(n) - 0)
        Next n
    Next i
End With

如您所见，'Cells(i, 2).Value = Mid(n, 1, Len(n) - 0)' 是需要更改的。

谢谢。

Answer 1

' 下面的代码会将单元格中的字符 1 更改为 4 为红色

.Cells.Characters(1, 4).Font.Color = vbRed