【原】Excel VBA 8.36补充Excel排序的不足 增加按照颜色排序

补充Excel排序的不足 增加按照颜色排序

---

点击上方“Excel和VBA”，选择“置顶公众号”

致力于原创分享Excel的相关知识，源码，源文件打包提供

一起学习，一起进步~~

---

上节我们说到了颜色的计数，在Excel的自带函数中，并没有针对颜色的计数，所以利用VBA创造了一个对于颜色的统计的方法

这节我们继续来补充Excel的不足，今天我们要补充的是Excel排序方面的不足，Excel其实是自带排序功能的，但是仅仅是针对数字的排序，并没有针对颜色的排序

所以和上节一样，今天我们要利用VBA创造一个针对颜色的排序方法

场景说明

这是我们之前已经实现的按照不同内容，填充不同的单元格背景色，那么我们现在就利用这个之前的结果，展开今天的内容，虽然这个颜色看起来还算是比较炫酷（别打我~），但是我们还是希望将相同颜色放在一起，这样我们看起来会更加的方便，但是Excel自带的排序，似乎并没有针对颜色的排序，他的排序是针对单元格内容的排序，我们来看看

仅仅是实现了部分，整体看起来并没有成功，所以我们还是要借助VBA的方法来实现

代码区

Sub test5()Dim rng As Range, a As RangeSet rng = Application.InputBox("请选择排序列参照列", "区域的选择", , , , , , 8)Application.ScreenUpdating = Falserng.Insertl = rng.Rows.CountApplication.ScreenUpdating = FalseFor Each a In rng  a.Offset(0, -1) = a.Interior.ColorNextrng.CurrentRegion.Sort Key1:=rng(1).Offset(0, -1), Header:=xlYesApplication.ScreenUpdating = TrueColumns(rng(1).Offset(0, -1).Column).DeleteEnd Sub

看看效果

代码解析

进入今天的代码解析

这么神奇的一个功能，VBA到底是如何来实现的呢？

其实很简单，我们先说下方法，因为之前我们学习了获得单元格的颜色是不是，这节我们就是利用了这个方法

我们将屏幕更新关闭

一起来看看

这里代码在Excel中插入了一列，作为一个辅助列，这个辅助列有什么用处呢？

难道将颜色写到这个辅助列中？还真的是这样，继续往下走

这里我们就看到，程序真的是将颜色写入了辅助列，不过是一串数字，我们并不需要知道这些数组，但是我们可以看出来，对应单元格颜色的数字值一致的，那么然后我们就可以利用Excel自带的排序功能了。

rng.CurrentRegion.Sort Key1:=rng(1).Offset(0, -1), Header:=xlYes

range.sort方法 按照辅助列进行排序

其实就是按照辅助列的内容来进行排序 辅助列的内容其实就是单元格背景色的数字表达方法

这样一说，你是不是理解了呢？

VBA按照颜色排序的本质，就是借用Excel的sort排序方法，不过要多做一步，将单元格的颜色转化为数字展示出来，这些数字，就是排序的参照物。

怎么样，理解了本质，整个方法就很容易理解了吧。