怎么在excel里实现，在一个单元格里，把括号里的数字变成红色。如图，求教~TAT

Question

不是手动变成红色，如果要批量操作的话，会手抽筋

Answer 1

这个问题必须用VBA才能解决，代码如下：

Sub Macro1()
Dim rng As Range
For Each rng In Range("A1:A10")
    T1 = InStr(rng, "（")
    T2 = InStr(rng, "）")
    If T1 > 0 Then
       rng.Characters(T1 + 1, T2 - T1 - 1).Font.ColorIndex = 3
    End If
Next rng
End Sub

需要注意的是：

1、第三行的：Range("A1:A10")，请更改为你需要批量操作的单元格区域；

2、第四第五行的双引号之间的两个括号必须和你表中那些括号一致，也就是表中是中文括号，代码也要用中文括号，表中是英文括号，代码也要是英文括号；

3、只能把所有单元格中第一个括号内的数字转为红色。

Answer 2

无法通过TEXT函数或者是自定义数字格式实现。

只能进行单元格编辑状态，手工选中括号中的字符，单独设置字体颜色为红色。
或者使用VBA代码