execl 中,如果字体颜色是红色(假设为红色)我要得到一个数值否则我要得到...

发布网友发布时间：2024-10-20 03:42

共2个回答

热心网友时间：2024-10-31 10:02

用VBA实现，代码如下：

Sub aa()
Dim i As Integer
For i = 1 To [A65536].End(xlUp).Row
If Cells(i, 1).Font.Color = RGB(255, 0, 0) Then
Cells(i, 2).Value = "C7"
End If
Next i
End Sub

打开VBE编辑器，粘贴上面的代码，运行后即可达到要求。

热心网友时间：2024-10-31 10:00

两个条件格式
不用代码
=A1="lady"
=A1="man"
格式自己定
应用于A1

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com