根据条件做统计

ャ涣熊ヅ

麻烦老师 根据条件做统计

shiruiqiang

双字典，split(班级)，字典

ャ涣熊ヅ

shiruiqiang 发表于 2024-11-15 21:59
双字典，split(班级)，字典

我不太会 老师 麻烦老师能帮忙弄下吗

shiruiqiang

自动生成

shiruiqiang

人有点感冒了，脑门有点涨，附件发错了，自己抄一下吧。手机打字

ャ涣熊ヅ

shiruiqiang 发表于 2024-11-15 22:14
自动生成

十分感谢 这个老师 带病帮我做的代码    祝愿老师的病早点好 十分感谢  


显示的结果 跟我的不太一样  

shiruiqiang

附件拿上来了

yellowhawk

  能用函数解决的，就不要用VBA
H2=SUM((--RIGHT(I$1,LEN(I$1)-(LENB(I$1)-LEN(I$1)))=$C$2:$C$10)*IFERROR(IF(FIND($G2,$D$2:$D$10),1,0),0))，三键结束，右拉下拉

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, br, cr, i&, j&, r&, c&, iPosRow&, iPosCol&, strDigit$, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    ar = Worksheets(1).[A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * 2, 1 To UBound(ar))
    r = 1: c = 1 ': br(1, 1) = "车牌号"
   
    For i = 2 To UBound(ar)
        cr = Split(ar(i, 4), "，")
        For j = 0 To UBound(cr)
            If Not dic.exists(cr(j)) Then
                r = r + 1
                dic(cr(j)) = r
                br(r, 1) = cr(j)
            End If
            strDigit = "数据" & ar(i, 3)
            If Not dic.exists(strDigit) Then
                c = c + 1
                dic(strDigit) = c
                br(1, c) = strDigit
            End If
            iPosRow = dic(cr(j)): iPosCol = dic(strDigit)
            br(iPosRow, iPosCol) = br(iPosRow, iPosCol) + 1
        Next j
    Next i
   
    With Worksheets(1)
        [H1].CurrentRegion.Clear
        With .[H1].Resize(r, c)
            .Value = br
            .Borders.LineStyle = xlContinuous
            .EntireColumn.AutoFit
        End With
        .Activate
    End With

    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考附件。。。