在Excel 2003中使用VBA按单元格背景色对数据进行排序

Question

提前致谢。

有人可以帮助我在Excel 2003中使用单元格背景色对数据进行排序。

我有400行，其中30行的单元格范围A1用黄色填充。 我需要根据VBA中的颜色对数据进行排序，以减少我对数据进行的迭代次数（如果我可以对数据进行排序，则排序后的数据将位于顶部，并且我只能解析30行，而不能循环所有400行） 。

Answer 1

从Excel 2007开始，您可以按照以下步骤执行此任务：首先，选择“工作表范围”，然后单击“ Sort On ”- Sort->Advanced ，然后在对话框中选择“ Sort On依据”选项“ 单元格颜色 ”，然后根据您的需要对其进行自定义任务。 您可以使用Macro Recorder生成基本的VBA代码（如果希望我们对其进行优化，请在您的帖子中添加它）。

与Excel 2003有关，可能的解决方案将使用代码模块中的辅助函数：

' in Excel 2003 it could be Public by default if placed in code Module
Public Function BackgroundColorIndex(myRange As Range)
    BackgroundColorIndex = myRange.Interior.ColorIndex
End Function

然后将此功能添加到一些辅助列中并对该列中的值进行排序。 此解决方案还将在更高的Excel版本（2007+）中运行。

希望这会有所帮助。