如何让当前列按真正的颜色排序

作者：绿色风分类：时间：2022-08-17 浏览：120

楼主
wqfzqgk

Q:如何让当前列的数据按真正的填充颜色排序？（EXCEL中的颜色只是把一个颜色的数据提到最前面）
A：

Sub 让当前列按颜色真正的排序()
Dim rng As Range
Dim cell As Range
Dim arr, i
Application.ScreenUpdating = False
Set rng = Selection
ReDim arr(1 To Selection.Rows.Count)
i = 1
For Each cell In Selection
arr(i) = cell.Interior.Color
i = i + 1
Next cell
rng.EntireColumn.Insert xlShiftToRight
rng.Offset(0, -1).Value = Application.Transpose(arr)
rng.CurrentRegion.Sort Key1:=rng.Cells(1, 1).Offset(0, -1)
rng.Offset(0, -1).EntireColumn.Delete
Application.ScreenUpdating = True
End Sub

按颜色排序.rar

2楼
wqfzqgk

当然也可以扩展按区域中的某一列或多列（自行扩展一下），亦可以改为按字体颜色来排序

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表