一列数据中有重复数据，如何判断顿号隔开的文字数量

grayw

niko88819 发表于 2025-4-11 12:10
看那位老师表现好，达到你的要求给老师们送花奖励吧

参考这连接怎么评分

已经送啦，谢谢提醒～

niko88819

grayw 发表于 2025-4-11 12:12
已经送啦，谢谢提醒～

你提供代码要符合1楼，也要小改，看红色地方
Sub sdyt()
    arr = Range("a2:a200")
    Set d = CreateObject("scripting.dictionary")
    ReDim brr(1 To UBound(arr), 1 To 1)
    For i = 1 To UBound(arr)
        s = Split(arr(i, 1), "、")
        For j = 0 To UBound(s)
            If Not d.exists(s(j)) Then brr(i, 1) = brr(i, 1) + 1: d(s(j)) = Empty
        Next
    Next
    Range("b2").Resize(UBound(brr), 1) = brr
End Sub