excel2010按颜色排序
excel2003中如果按颜色排序，需要先定义宏表名称,然后再逐行取得颜色值，再根据值进行排序，很麻烦，而excel2010版本直接提供按颜色排序功能。
例：把A列的数字按颜色进行排序。
按条件提取两表中二级明细不重复记录到表三
代码如下：
Sub symx()
Dim Krr, i&, d, Lrr, t, x$, y$, r%, Krr1()
Set d = CreateObject("Scripting.Dictionary")
Sheet3.Activate
[d4:d500].ClearContents
Krr = Sheet5.[a1].CurrentRegion
For i = 2 To UBound(Krr)