Excel高级格式

这可以使用VBA来实现。该代码已在Excel 2013中进行了测试。尽管您没有提到该版本，但为了防止万一，它应该足够通用才能在Excel 2003中工作。

在工作表中，按Alt+F11打开VBA编辑器。在“插入”菜单中，插入“模块”。双击左窗格中插入的模块以打开其代码编辑器。

现在将以下代码粘贴到其中。

Public Sub myformat()

  Dim rng As Range
  Set rng = Range("Sheet1!D4:D11")  'Specify the desired SheetName!Range here
  For Each cel In rng.Cells
    If cel.Font.Bold = True And cel.Font.Italic = True Then
        cel.Font.Italic = False
        cel.Interior.ColorIndex = 44  '44 is the color index number for standard Orange in Excel
    End If   
  Next cel

End Sub

这将创建一个名为的VBA宏myformat。在这里，您需要手动指定SheetName！Range。在此示例中Sheet1!D4:D11是数据范围。保存并退出回到工作表。

按Alt+F8访问“宏”对话框，然后运行此myformat宏以获得所需的效果。