连续几个空单元格的数量大于某一单元格则标为红色

彼岸花开6273

求各位大神帮忙看看这个VBA程序怎么实现，规则是，每一列代表一个人1.如果这一列中连续空单元格的个数加上1若大于连续空单元格下面那个格里的数，则这几个空单元格都标为红色，否则不着色。例如，D18，D19，D20这几个连续单元格数量为三，加上1之后为4，大于D21中的2，所以这几个单元格都着红色。
2.如果某一列的非空单元格后面再无有内容的单元格，即从此往后这一列都是空的单元格，则将这些格子着蓝色。

彼岸花开6273

A	B	C	D	E	F
1
2
3
4
5
6
7
8
9
10
11
12
13
14	6	11	2
15	7	3	4
16	8		3
17	4		5
18	1
19
20
21		8	2
22	8		1
23	7	4	15
24		6