字典取值补充说明

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, r&, n&
   
    ar = [A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar), 0): r = 1
    br(r, 0) = "连续" & [L2].Value & "个" & [L1].Value
   
    For i = 2 To UBound(ar)
        n = 0
        For j = 2 To [L2].Value + 1 'UBound(ar, 2)
            If ar(i, j) = [L1].Value Then n = n + 1
        Next j
        If n = [L2].Value Then r = r + 1: br(r, 0) = ar(i, 1)
    Next i
   
    Range("K6:K" & Rows.Count).Clear
    [K6].Resize(r) = br
    Beep
End Sub

gwjkkkkk

参与一下。。。

hy397556

gwjkkkkk 发表于 2024-11-19 20:21
参与一下。。。

感谢老师帮助，24小时超过评分限制了，不能评分，恢复评分后，送老师鲜花