Excel 如何用VBA通过条件判断设置相应行的字体颜色

Sub 宏1()     Dim arr, i&, c&     arr = Range("k1:k" & Range("k" & Rows.Count).End(xlUp).Row)     Cells.Font.ColorIndex = 0     For i = 3 To UBound(arr)         Select Case True             Case InStr(arr(i, 1), "->") > 0                 c = 14                 Rows(i).Font.Bold = True             Case InStr(arr(i, 1), "-01") > 0                 c = 5             Case InStr(arr(i, 1), "-02") > 0                 c = 3             Case InStr(arr(i, 1), "-03") > 0                 c = 46         End Select         Rows(i).Font.ColorIndex = c     Next End Sub 复制代码