EXCEL表无法实现，请大神帮忙用VBA看看

KJRSDL

需求：项目每天提报业绩未达标品牌，如附件中项目A，下面1-5日的清单 。我怎么才能快速的知道，哪个品牌出现的次数。

KJRSDL

请大家帮忙指导，帮帮忙

蓝桥玄霜

欢迎新会员！
次数的例子：

caiyu93

gwjkkkkk

Option Explicit
Sub TEST()
    Dim ar, br, vResult, i&, j&, r&, k&, dic As Object, vKey, iPosRow
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Range("B4", [B4].End(xlDown)).Resize(, 4)
    ReDim vResult(1 To 10 ^ 4, 1 To UBound(ar, 2))
    For j = 1 To UBound(ar, 2)
        dic.RemoveAll: r = 0
        For i = 1 To UBound(ar)
           br = Split(ar(i, j), "、")
           For k = 0 To UBound(br)
              dic(br(k)) = dic(br(k)) + 1
           Next k
        Next i
        For Each vKey In dic.keys
           r = r + 1
           vResult(r, j) = vKey & dic(vKey) & "次"
        Next
        If r > iPosRow Then iPosRow = r
    Next j
   
    With [B34].Resize(iPosRow, UBound(vResult, 2))
        .Value = vResult
        .HorizontalAlignment = xlCenter
        .Borders.LineStyle = xlContinuous
        .Font.Size = 9
    End With
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请楼主参考附件。。。

cjc209

就是一个字典写法就搞定 非常简单