求助：如何编写删除有颜色的单元格的VBA程序

leonardo831211

具体要求：将标有颜色的单元格整行删除，仅保留无填充颜色的单元格及数据，请高手赐教！





该贴已经同步到 leonardo831211的微博

Lightzeng

用range的属性Interior.ColorIndex

1. Public Sub test()
   
2. For i = 1 To 394
   
3.     If Range("E" & i).Interior.ColorIndex > 2 Then
   
4.        Range("E" & i).EntireRow.Delete
   
5.        i = i - 1
   
6.     End If
   
7. Next i
   
8. End Sub

复制代码

leonardo831211

Lightzeng 发表于 2013-5-15 11:07
用range的属性Interior.ColorIndex

先谢谢您!我将测试下的！

leonardo831211

Lightzeng 发表于 2013-5-15 11:07
用range的属性Interior.ColorIndex

经过测试，可以使用的！将您的语句For i = 1 To 394改成for i = 1 to ActiveSheet.UsedRange.Rows.Count，我想问下，能否可以将Range("E" & i).Interior.ColorIndex > 2 改成Range("E" & i).Interior.ColorIndex <>2 吗

Lightzeng

你写条语句测试一下颜色吧，我不记得那么多颜色了，而且你看看没标颜色的空白单元格好像不是2是负数
For i = 1 To 500
    On error resume next
    Range("E" & i).Value=Range("E" & i).Interior.ColorIndex
Next i

kiss被注册

给你个 颜色参照表
Sub a()
For x = 1 To 56
  Range("a" & x) = x
  Range("b" & x).Interior.ColorIndex = x
Next x
End Sub

Lightzeng

leonardo831211 发表于 2013-5-15 11:18
经过测试，可以使用的！将您的语句For i = 1 To 394改成for i = 1 to ActiveSheet.UsedRange.Rows.Count， ...

你写条语句测试一下颜色吧，我不记得那么多颜色了，而且你看看没标颜色的空白单元格好像不是2是负数
For i = 1 To 500
    On error resume next
    Range("E" & i).Interior.ColorIndex =i
Next i

leonardo831211

感谢两位高手的热心帮助！！！！

wwz851025

kiss被注册 发表于 2013-5-15 11:28
给你个 颜色参照表
Sub a()
For x = 1 To 56

非常感谢，这行代码