Sub SetFontColorSameAsCellColor() Dim cell As Range For Each cell In Selection cell.Font.Color = cell.Interior.Color Next cell End Sub优化

这段 VBA 代码的功能是将选中区域内单元格的字体颜色设置为与单元格背景色相同。优化的话可以考虑以下几点：

1. 添加变量类型声明：在 Dim 语句中添加变量类型声明，可以提高代码的可读性和效率。例如，将 `cell` 声明为 `Range` 类型。

2. 使用 With 语句：使用 With 语句可以简化代码，并且提高代码的可读性和效率。例如，可以将 `cell.Font.Color` 和 `cell.Interior.Color` 放到一个 With 语句中。

3. 添加错误处理：在代码中添加错误处理可以增强代码的健壮性，避免程序崩溃。例如，可以在代码中添加 On Error 语句来处理可能会出现的运行时错误。

以下是优化后的代码：

Sub SetFontColorSameAsCellColor()
    Dim cell As Range
    
    On Error Resume Next '添加错误处理
    
    With Selection
        For Each cell In Selection.Cells
            With cell
                .Font.Color = .Interior.Color '使用 With 语句简化代码
            End With
        Next cell
    End With
    
    On Error GoTo 0 '取消错误处理
End Sub

希望对你有帮助！