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:=xlYesrange.sort方法 按照辅助列进行排序
其实就是按照辅助列的内容来进行排序 辅助列的内容其实就是单元格背景色的数字表达方法
这样一说，你是不是理解了呢？
VBA按照颜色排序的本质，就是借用Excel的sort排序方法，不过要多做一步，将单元格的颜色转化为数字展示出来，这些数字，就是排序的参照物。
怎么样，理解了本质，整个方法就很容易理解了吧。