怎样满足两个条件去循环

pureshadow

你是想将那两个单元格里的函数公式用vba代码写出来吗？
最简单的办法就是

1. 
   
2. range("ad18")= "=COUNTIFS(O18:Z19,"<30")/24"
   
3. range("ad18")= range("ad18")

复制代码

要按vba的写法就是

1. 
   
2. dim myrng as range
   
3. dim i as long
   
4. for each myrng in range("o18:z19")
   
5. if myrng < 30 then
   
6.   i = i +1
   
7. end if
   
8. next
   
9. range("ad18") = i /24

复制代码