请问怎么筛选附件中有颜色的项目，谢谢！

湖军 · 发表于 2011-3-29 10:11

各位高手，帮帮忙！

nt_ljm · 发表于 2011-3-29 10:24

在07版中是可以按颜色筛选的，03版可能不行。

无辣味水煮鱼 · 发表于 2011-3-29 10:24

试一试这个。

湖军 · 发表于 2011-3-29 10:25

我的是03版的，有什么办法吗，谢谢！

无辣味水煮鱼 · 发表于 2011-3-29 10:25

Sub test()
Dim arr, brr(), i%, n%
arr = Range("A1:B" & Range("A65536").End(3).Row)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If Cells(i, "A").Interior.Color <> vbWhite And arr(i, 1) <> "" Then
      n = n + 1
      brr(n, 1) = arr(i, 1)
      brr(n, 2) = arr(i, 2)
End If
Next i
[e4].Resize(n, 2) = brr
End Sub

湖军 · 发表于 2011-3-29 10:27

请问你是用的宏命令吗，能否告诉我怎么做的，谢谢，我有很多这样的表格要处理

fashions · 发表于 2011-3-29 10:29

2007、2010都有颜色筛选，和颜色排序

dsmch · 发表于 2011-3-29 10:31

Book2.rar (9.73 KB, 下载次数: 3)

无辣味水煮鱼 · 发表于 2011-3-29 10:32

原帖由湖军于 2011-3-29 10:27 发表
请问你是用的宏命令吗，能否告诉我怎么做的，谢谢，我有很多这样的表格要处理

请见你楼上代码，根据需要将相应的位置改变就可以了。

xuqing314 · 发表于 2011-3-29 10:37

2003好像功能上差很多哦！

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

[求助] 请问怎么筛选附件中有颜色的项目，谢谢！

回复 1楼湖军的帖子

回复 2楼 nt_ljm 的帖子

回复 3楼无辣味水煮鱼的帖子

[求助] 请问怎么筛选附件中有颜色的项目，谢谢！

回复 1楼 湖军 的帖子

回复 2楼 nt_ljm 的帖子

回复 3楼 无辣味水煮鱼 的帖子

回复 1楼湖军的帖子

回复 3楼无辣味水煮鱼的帖子