循环遍历工作簿中所有工作表中的所有单元格，如果为红色，则更改格式

Question

我试图将所有单元格中的所有单元格中的所有红色文本都更改为黑色。我正在使用以下内容：

Sub RedToBlack() 
Dim Current As Worksheet 
For Each Current In Worksheets 
For Each cell In Current 
    If cell.Font.ColorIndex = 3 Then 
     cell.Font.ColorIndex = 0 
    End If 
    Next 
Next 
End Sub 

我知道这是错误的，但是想要说明我正在尝试做什么。任何人都可以提供意见感谢您的帮助，我对此很新。

Answer 1

Sub change_color() 
For Each sht In ActiveWorkbook.Sheets 
    Set rng = sht.UsedRange 
     For Each cell In rng 
      If cell.Font.ColorIndex = 3 Then 
       cell.Font.ColorIndex = 0 
      End If 
     Next cell 
Next sht 
End Sub 

Answer 2

你有什么可能会做这项工作。但是，这将是非常低效的。更好的方法是使用这样的查找和替换。

'set the next find to find the red 
With Application.FindFormat.Font 
    .ColorIndex = 3 
End With 
'set the next find to replace with black 
With Application.ReplaceFormat.Font 
    .ColorIndex = 1 
End With 

'Do the actual replacing 
For Each aSheet In ActiveWorkbook.Worksheets 
    aSheet.Activate 

    Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _ 
    xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True 
Next aSheet 

这会为在整个工作簿中所有表的所有单元格。您也可以通过转到正常查找并替换窗口然后按下选项按钮来完成此操作。