[已解决]查找

hvail

从T3到AA列不等于空的区域里查找<>0的单元格改变颜色,然后清除内容.

最佳答案

月排行榜 / 总排行榜

我心永恒

2012-11-29 14:31

Sub a()
    Dim an As Range
    For Each an In Range("t3:aa65536")
    If an <> 0 And an <> "" Then
    an.Interior.ColorIndex = 3
    an.ClearContents
    End If
    Next an
End Sub
最后一个单元格最简单的方法，对运算不会有什么影响

跳转到最佳答案楼层

从从容容

这个也太简单呀。

hvail

从从容容 发表于 2012-11-29 11:18
这个也太简单呀。

我水平太菜了，帮我整一个，谢谢了

我心永恒

Sub a()
    Dim an As Range
    For Each an In Range("t3:aa146")
    If an <> 0 And an <> "" Then
    an.Interior.ColorIndex = 3
    an.ClearContents
    End If
    Next an
End Sub

hvail

我心永恒 发表于 2012-11-29 12:19
Sub a()
    Dim an As Range
    For Each an In Range("t3:aa146")

For Each an In Range("t3:aa146")能把AA146改成不固定的吗，因为AA146会不断的变

hvail

我心永恒 发表于 2012-11-29 12:19
Sub a()
    Dim an As Range
    For Each an In Range("t3:aa146")

老师帮我改改嘛！谢谢了

hvail

我心永恒 发表于 2012-11-29 12:19
Sub a()
    Dim an As Range
    For Each an In Range("t3:aa146")

大哥！我等着设最佳你的呀

无聊的疯子

你里面没有看到有值为 0  的单元格嘛

1. 
   
2. Sub 宏1()
   
3.   With Cells.SpecialCells(xlCellTypeConstants, 1)
   
4.     .Interior.ColorIndex = 9
   
5.     .ClearContents
   
6.   End With
   
7. End Sub
   

复制代码

hvail

无聊的疯子 发表于 2012-11-29 13:44
你里面没有看到有值为 0  的单元格嘛

大师你好，是有0的，还有是区域是在T3开始

无聊的疯子

如果有可能有 0  的单元格,就用下面的方法

1. 
   
2. Sub 宏1()
   
3.   If Not Cells.Find(0, , , 1) Is Nothing Then Cells.Replace 0, "", 1
   
4.   With Cells.SpecialCells(xlCellTypeConstants, 1)
   
5.     .Interior.ColorIndex = 33
   
6.     .ClearContents
   
7.   End With
   
8. End Sub
   

复制代码

如果要保留原来那个 0 可以换一下

1. 
   
2. Sub 宏1()
   
3.   If Not Cells.Find(0, , , 1) Is Nothing Then Cells.Replace 0, "A0", 1
   
4.   With Cells.SpecialCells(xlCellTypeConstants, 1)
   
5.     .Interior.ColorIndex = 33
   
6.     .ClearContents
   
7.   End With
   
8.   If Not Cells.Find("A0", , , 1) Is Nothing Then Cells.Replace "A0", 0, 1
   
9. End Sub
   

复制代码