其實就是兩個操作。
1、統計M列,區域:連續360個以上的單元格都為0,這樣的區域總***有多少個?
2、將M列所有數字為1的單元格,填充色改為其它顏色(例如紅色)。
相應完整VBA代碼如下:
Sub?count01_by_zzllrr()Dim?n,?n0,?n1,?i,?v
n?=?0
n0?=?0
n1?=?False
If?Range("M1")?=?0?Then
n0?=?1
End?If
For?i?=?2?To?Columns("M:M").Find("*",?,?,?,?1,?2).Row
v?=?Range("M"?&?i)
If?v?=?1?Then
Range("M"?&?i).Interior.Color?=?255
If?n0?>?360?Then
n?=?n?+?1
End?If
n0?=?0
If?Not?n1?Then
n1?=?True
End?If
Else
If?n1?Then
n0?=?n0?+?1
End?If
End?If
Next?i
Range("N1")?=n
MsgBox?("總***"?&?n?&?",且已填寫在單元格N1")
End?Sub