Excel和VBA（公众号：Excel和VBA）

前景提要

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

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

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

场景说明

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

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

代码区

Sub test5()

Dim rng As Range, a As Range

Set rng = Application.InputBox("请选择排序列参照列", "区域的选择", , , , , , 8)

Application.ScreenUpdating = False

rng.Insert

l = rng.Rows.Count

Application.ScreenUpdating = False

For Each a In rng

a.Offset(0, -1) = a.Interior.Color

Next

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

Application.ScreenUpdating = True

Columns(rng(1).Offset(0, -1).Column).Delete