如何用VBA代码在Excel中按颜色排序

mayuebo · 发表于 2010-4-24 07:35

如何用VBA代码在Excel中按颜色排序，(应该不需要提供附件吧）
OFFICE 2003的，不想用宏表函数

1. 按文字颜色排序
2. 按单元格颜色排序

wudixin96 · 发表于 2010-4-24 07:57

单列简单，多列就烦了

cflood · 发表于 2010-4-24 08:47

升级2007，可以直接按颜色排序

mayuebo · 发表于 2010-4-24 09:47

原帖由 cflood 于 2010-4-24 09:08 发表
用Range("IV1").End(xltoleft).column得到最后1列

请问按文字颜色排序怎么写？

alzeng · 发表于 2010-4-24 09:55

上附件吧，如果想得到别人的帮助，就要为获得帮助创造条件。

wudixin96 · 发表于 2010-4-24 10:03

原帖由 mayuebo 于 2010-4-24 09:47 发表

请问按文字颜色排序怎么写？

改Range("A" & i).Interior.ColorIndex
为
Range("A" & i).Font.ColorIndex

mayuebo · 发表于 2010-4-24 09:01

For i = 2 To Range("a65536").End(xlUp).Row 'A列
Range("B" & i).Value = Range("A" & i).Interior.ColorIndex
Next i

Columns("A:B").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal

End Sub

这是我在论坛搜索到的，按单元格颜色排序，因为他指定了A B 列，我想如果是多列，列数步固定，怎么改？
还有就是按文字颜色排序怎么写？

cflood · 发表于 2010-4-24 09:08

用Range("IV1").End(xltoleft).column得到最后1列

wudixin96 · 发表于 2010-4-24 09:12

通过辅助列的方法不错，学习了

mayuebo · 发表于 2010-4-24 15:35

原帖由 cflood 于 2010-4-24 09:08 发表
用Range("IV1").End(xltoleft).column得到最后1列

这个返回值是数字，我想要字母，怎么办

		自动登录	找回密码
密码			免费注册

[推荐] 如何用VBA代码在Excel中按颜色排序