怎样才能自动实现统计连续出现数据3次以上上升或下降(增长.下降)

变成这样

v自己挽

没看明白具体意思！

我现在是猜谜高手，应该是：
A3~A5分别为3,2,1连续降序排列3次，
A9~A12分别为1,2,3,4,连续升序排列4次....，
A22~A24分别为-12,-11,-10连续升序排列3次
这题用"FREQUENCY"函数，我碰到这种函数就晕头转向，对 @zipall 和 @fengtf12 应该是轻而易举

B5=RIGHT(LEFT(IF(MAX(A4:A6)=A5,"↑",IF(MIN(A4:A6)=A5,"↓"," "))&TEXT(ROW()-LOOKUP(1,0/IF(ROW($3:5)=3,1=1,IF(A5>A4,A$3:A5<=A$2:A4,A$3:A5>=A$2:A4)),ROW($2:4)),"[<3] "),4),2) 数组函数
最近年底实在太忙，验证跟简化这种烦琐事就劳烦你们了
@鬍鬚客 @zipall 等等高手（太久不来记不清了，不好意思哈）

Sub test()
Dim r As Long, arr
Dim f As Boolean
Dim n As Integer
r = Range("A65536").End(xlUp).Row - 2
Cells(3, 2).Resize(r).ClearContents
With Cells(3, 1).Resize(r, 2)
arr = .Value
n = 2
f = arr(2, 1) > arr(1, 1)
For r = 3 To r
t = arr(r, 1) > arr(r - 1, 1)
If t = f Then
n = n + 1
Else
If n > 2 Then arr(r - 1, 2) = IIf(f, "↑", "↓") & n
n = 2
f = t
End If
Next
If n > 2 Then arr(r - 1, 2) = IIf(f, "↑", "↓") & n
.Value = arr
End With
End Sub

手慢了……
Sub My()
Dim i, j, Asc_y, Desc_y
Dim arr, brr
i = [A65536].End(3).Row
arr = Range("A3", "A" & i + 1)
ReDim brr(1 To i)
a:
j = j + 1
If j = UBound(arr) Then GoTo b
If arr(j, 1) - arr(j + 1, 1) = 1 And Asc_y = 0 Then
Desc_y = Desc_y + 1
ElseIf Desc_y <> 0 Then
If Desc_y + 1 > 2 Then brr(j) = "↓" & Desc_y + 1
Desc_y = 0
End If
If arr(j, 1) - arr(j + 1, 1) = -1 And y = 0 Then
Asc_y = Asc_y + 1
ElseIf Asc_y <> 0 Then
If Asc_y + 1 > 2 Then brr(j) = "↑" & Asc_y + 1
Asc_y = 0
End If
GoTo a
b:
Range("B3", "B" & i) = Application.Transpose(brr)
End Sub

先说清楚你的要求。。。

升降次数的算法是否有误？
B5
=TEXT(IF(A5=A4,0,IF(A5>A4,1+E4*(A4>A3),IF(A5<A4,E4*(A4<A3)-1))),"[>=3]!↑0;[<=-3]!↓0;;")普通公式下拉
或B5
=IF(A5=A4,0,IF(A5>A4,1+E4*(A4>A3),IF(A5<A4,-1+E4*(A4<A3))))下拉
再自定义单元格格式[>=3]"↑"0;[<=-3]"↓"0;;