急求一个excel VBA问题，在一堆公司中筛选出有过利润连续三年增长的，将其记录下来

我有2000-2018所有上市公司的利润数据，想在当中筛选出存在过利润连续3年增长的公司，请问这个能用VBA实现吗，如果不能的话有没有其他方法呢
比如编号为0001的公司，在2015-2017年出现了连续三年利润增长
编号  年份  利润
0001 2018   1亿
0001 2017   7亿
0001 2016   6 亿
0001 2015   5亿
0001 2014   20亿
0001 2013   21亿
。。。
0001 2000  2亿
就像这样，只要在这19年间，有任意3年出现了连续增长，就把这一类公司挑出来。
我的想法是，用for循环，在每一个循环中，连续比对上一年的利润，如果出现了连续三次本年利润高于上一年，就记录下这个编号。

您看这样行不？

1. Sub 连续三年增长()
   
2. Range("D:D").Clear
   
3. Dim a, b As Integer
   
4. For b = 1 To (Application.WorksheetFunction.CountA(Range("a:a")) - 1) / 19
   
5.     For a = 0 To 17
   
6.     If Cells(2 + a + 19 * (b - 1), 3) > Cells(3 + a + 19 * (b - 1), 3) And Cells(3 + a + 19 * (b - 1), 3) > Cells(4 + a + 19 * (b - 1), 3) Then
   
7.     Range("D" & 2 + a + 19 * (b - 1) & ":D" & 4 + a + 19 * (b - 1)) = "连续三年增长"
   
8.     End If
   
9.     Next
   
10. Next
    
11. End Sub

复制代码