Vanita问是否有一种方法可以选择包含特定颜色的单元格。如果您使用的是Excel 2003，则完成任务很容易。只需执行以下步骤：

。按Ctrl + F以显示“查找和替换”对话框的“查找”选项卡。 （请参见图1。）

。确保“查找内容”框中没有任何内容。

。单击格式。 （您可能需要单击“选项”以查看“格式”按钮。）Excel显示“查找格式”对话框。

。确保显示图案选项卡。 （请参见图2。）

。从可用的颜色中，选择要查找的颜色。

。单击“确定”关闭“查找格式”对话框。

。单击全部查找。 “查找和替换”对话框将展开，以显示使用在步骤5中指定的颜色格式设置的所有单元格的地址。（请参见图3。）

。单击对话框底部的单元格地址之一。 Excel在实际工作表中选择单元格。

。按Ctrl + A。对话框中的所有地址都被选中。

。单击关闭。选择所需颜色的所有像元。

如果使用的是Excel 97，Excel 2000或Excel 2002，则选择特定颜色的单元格的唯一方法是使用宏。考虑下面显示的宏：

Sub SelectColoredCells()

Dim rCell As Range     Dim lColor As Long     Dim rColored As Range

'Select the color by name (8 possible)

'vbBlack, vbBlue, vbGreen, vbCyan,     'vbRed, vbMagenta, vbYellow, vbWhite     lColor = vbBlue

'If you prefer, you can use the RGB function     'to specify a color     'lColor = RGB(0, 0, 255)



Set rColored = Nothing     For Each rCell In Selection         If rCell.Interior.Color = lColor Then             If rColored Is Nothing Then                 Set rColored = rCell             Else                 Set rColored = Union(rColored, rCell)

End If         End If     Next     If rColored Is Nothing Then         MsgBox "No cells match the color"

Else         rColored.Select         MsgBox "Selected cells match the color:" & _             vbCrLf & rColored.Address     End If     Set rCell = Nothing     Set rColored = Nothing End Sub

要使用宏，请在运行宏之前选择一个单元格区域。然后，宏将逐步遍历每个选定的单元格，并将其颜色与您在lColor中指定的任何颜色进行比较。如果找到匹配项，则将单元格添加到选择集中。完成后，宏仅选择那些匹配的单元格，然后退出。

如果您想查找其他基于宏的解决方案，则可以参考Microsoft知识库中的以下文章：

http://support.microsoft.com/kb/142122

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（2396）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

查找充满特定颜色的单元格。