下面我们来看看代码
Sub test()Dim arr, brr, crr, dic As ObjectSet dic = CreateObject("scripting.dictionary")arr = Range("A1").CurrentRegion.ValueFor i = 2 To UBound(arr)brr = Split(arr(i, 1), "、")For j = 0 To UBound(brr)dic(brr(j) & arr(i, 2)) = dic(brr(j) & arr(i, 2)) + 1Next jNext ibrr = Range("D2").CurrentRegion.ValueFor m = 2 To UBound(brr)For n = 2 To UBound(brr, 2)brr(m, n) = dic(brr(m, 1) & brr(1, n))If brr(m, n) = "" Then brr(m, n) = 0Next nNext mRange("D2").CurrentRegion.Value = brrEnd Sub
好了，本期教程就到这里啦，走过路过的点个关注分享一下吧，谢谢啦
