VBA小白求助关于数据分类

sunorange

小白向各位朋友求助
用VBA如何在数据中查找
1.连续3个大于20的数
2.连续5个连续上升的数
谢谢

sunorange

在线等 ………………

liulang0808

1. Sub aaa()
   
2.     Application.ScreenUpdating = False
   
3.     a = 0
   
4.     For j = 4 To Cells(Rows.Count, 1).End(3).Row + 1
   
5.         If Cells(j, 1) > 20 Then
   
6.             a = a + 1
   
7.         Else
   
8.             If a >= 3 Then
   
9.                 Cells(j, 1).Offset(-a).Resize(a).Interior.ColorIndex = 3
   
10.             End If
    
11.             a = 0
    
12.         End If
    
13.     Next j
    
14.    
    
15.     a = 0
    
16.     For j = 4 To Cells(Rows.Count, 4).End(3).Row + 1
    
17.         If Cells(j + 1, 4) > Cells(j, 4) Then
    
18.             a = a + 1
    
19.         Else
    
20.             If a >= 4 Then
    
21.                 Cells(j, 4).Offset(-a).Resize(a + 1).Interior.ColorIndex = 8
    
22.             End If
    
23.             a = 0
    
24.         End If
    
25.     Next j
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

liulang0808

附件内容供参考。。。

sunorange

非常感谢，完美了