第1个回答 2015-10-14
利用宏进行操作;例如
Sub test()
Dim R As Integer
Dim I As Integer
Dim B As Integer
B = 0
R = 0
For I = 1 To 9
If Cells(I, 1).Font.Color = vbRed Then R = R + 1
If Cells(I, 1).Font.Color = vbBlack Then B = B + 1
Next I
MsgBox "red=" & R & " Black=" & B
End Sub