[已解决]用VBA数组改写单元格填充颜色

laoau138

用VBA数组改写单元格填充颜色

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-2 12:58

我所能想到的最快方法，不用数组，不用循环。

1. Sub aaa()
   
2. Application.ScreenUpdating = False
   
3. [a1].CurrentRegion.AutoFilter Field:=4, Criteria1:=">500"
   
4. Range("a2:d" & [a65536].End(3).Row).Interior.Color = vbRed
   
5. [a1].CurrentRegion.AutoFilter
   
6. Application.ScreenUpdating = True
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

我所能想到的最快方法，不用数组，不用循环。

1. Sub aaa()
   
2. Application.ScreenUpdating = False
   
3. [a1].CurrentRegion.AutoFilter Field:=4, Criteria1:=">500"
   
4. Range("a2:d" & [a65536].End(3).Row).Interior.Color = vbRed
   
5. [a1].CurrentRegion.AutoFilter
   
6. Application.ScreenUpdating = True
   
7. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-2 12:58
我所能想到的最快方法，不用数组，不用循环。

VBA改写find 支持查找一个数或多个数


http://www.excelpx.com/thread-430783-1-1.html