[已解决]用VBA数组或字典把F列一万行填充颜色

大灰狼1976

一例一休即每周休息二天，其中一天为例假不可加班，另一天可以加班。
我能想到的最快方法，缺点是会改变你按钮的大小，将按钮放在第一行最好。

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

复制代码