Excel VBA 8.36补充排序的不足 打造颜色排序

<h1>前景提要</h1><p>上节我们说到了颜色的计数，在Excel的自带函数中，并没有针对颜色的计数，所以利用VBA创造了一个对于颜色的统计的方法</p><p>这节我们继续来补充Excel的不足，今天我们要补充的是Excel排序方面的不足，Excel其实是自带排序功能的，但是仅仅是针对数字的排序，并没有针对颜色的排序</p><p>所以和上节一样，今天我们要利用VBA创造一个针对颜色的排序方法</p><h2>场景说明</h2><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/9fc60fbfa4c607c8.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>
</p><p>这是我们之前已经实现的按照不同内容，填充不同的单元格背景色，那么我们现在就利用这个之前的结果，展开今天的内容，虽然这个颜色看起来还算是比较炫酷（别打我~），但是我们还是希望将相同颜色放在一起，这样我们看起来会更加的方便，但是Excel自带的排序，似乎并没有针对颜色的排序，他的排序是针对单元格内容的排序，我们来看看</p><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/648daeb633a7340b.gif" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p/><p>仅仅是实现了部分，整体看起来并没有成功，所以我们还是要借助VBA的方法来实现</p><h2>代码区</h2><p>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
End Sub</p><p>看看效果</p><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/5d88cd6cfb5bcb9b.gif" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>
</p><p>是不是很成功</p><h2>代码解析</h2><p>进入今天的代码解析</p><p>这么神奇的一个功能，VBA到底是如何来实现的呢？</p><p>其实很简单，我们先说下方法，因为之前我们学习了获得单元格的颜色是不是，这节我们就是利用了这个方法</p><p>我们将屏幕更新关闭一起来看看</p><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/c5db166e28b2f446.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>
</p><p>这里代码在Excel中插入了一列，作为一个辅助列，这个辅助列有什么用处呢？</p><p>难道将颜色写到这个辅助列中？还真的是这样，继续往下走</p><p/><div class="image-package"><img src="https://img.haomeiwen.com/i16158327/9c8cedc856a57c82.png" class="uploaded-img" style="min-height:200px;min-width:200px;" width="auto" height="auto"/>
</div><p>
</p><p>这里我们就看到，程序真的是将颜色写入了辅助列，不过是一串数字，我们并不需要知道这些数组，但是我们可以看出来，对应单元格颜色的数字值一致的，那么然后我们就可以利用Excel自带的排序功能了。 </p><p>rng.CurrentRegion.Sort Key1:=rng(1).Offset(0, -1), Header:=xlYes</p><p>range.sort方法</p><p>按照辅助列进行排序
其实就是按照辅助列的内容来进行排序</p><p>辅助列的内容其实就是单元格背景色的数字表达方法
这样一说，你是不是理解了呢？</p><p>VBA按照颜色排序的本质，就是借用Excel的sort排序方法，不过要多做一步，将单元格的颜色转化为数字展示出来，这些数字，就是排序的参照物。</p><p>
怎么样，理解了本质，整个方法就很容易理解了吧。

</p>