VBA统计首行数据连续出现次数的问题

838833928

已有数组公式，用vba怎么表达？

特别感谢：昵称 春风化雨

Sub 统计()
Application.ScreenUpdating = False
Dim arr(), brr(), Col&
Col = Cells(2, Columns.Count).End(xlToLeft).Column
arr = Range(Cells(2, 1), Cells(99, 5)).Value
ReDim brr(1 To 1, 1 To UBound(arr))
    For j = 1 To Col
        For i = 1 To UBound(arr)
            If Trim(arr(i, j)) <> Trim(arr(1, j)) Then
                brr(1, j) = i - 1
                Exit For
            End If
        Next i
    Next j
Cells(1, 1).Resize(1, Col).Value = brr
Application.ScreenUpdating = True
End Sub

3190496160

Sub 统计()
With ActiveSheet
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    For j = 1 To y
        For i = 3 To r
            If Trim(.Cells(i, j)) <> Trim(.Cells(2, j)) Then
                .Cells(1, j) = i - 2
                Exit For
            End If
        Next i
    Next j
End With
MsgBox "ok!"
End Sub

3190496160

VBA实现连续个数出现次数统计.rar (16.8 KB, 下载次数: 17)

2023-2-6 11:30 上传

点击文件名下载附件

838833928

3190496160 发表于 2023-2-6 11:30

非常漂亮

zldccmx

838833928

3190496160 发表于 2023-2-6 11:30

多年的问题今天算是解决了，谢谢啊,大师

838833928

zldccmx 发表于 2023-2-6 11:42

可以用数组不？大侠

3190496160

838833928 发表于 2023-2-6 12:09
可以用数组不？大侠

已经给你代码了，稍微修改就是数组了呀