最好用数组VBA计算多列最大连续 不要用字典
发布网友
发布时间：2023-10-19 20:01
共1个回答
热心网友
时间：2024-12-03 11:07
arr = Range("e1:f16")
ReDim brr(1 To 2, 1 To UBound(arr, 2))
For j = 1 To UBound(arr, 2)
y = ""
For i = 1 To UBound(arr)
If Mid(arr(i, j), 3, 1) = "刑" Then
p = 0
Else
x = Left(arr(i, j), 1)
If x = y Then
p = p + 1
Else
p = 1
End If
k = IIf(x = "正", 1, 2)
If p > brr(k, j) Then brr(k, j) = p
End If
y = x
Next i, j
[e17].Resize(2, UBound(brr, 2)) = brr
End Sub
追问果然是高手
来自：求助得到的回答
