请教高手，多个单元格内分号分隔的内容，提取相同的组成一列，并统计次数

roguebear

请教高手，用VB，不胜感激。 内容很多列，能不能一键搞定，不用自己用鼠标点原始内容。
原始内容每个cell里面的字符串是不等长的，随机的， 用分隔符分隔。这个分隔符有通常是分号，有可能是空格，也有可能是回车，也就是单元格只有一个字符串




1.生成一个新的sheet
1. 统计原始内容后，在这个新sheet自动生成新列， 这个新列里面是不重复的所有出现过的字符串（用分号分隔的）
2. 统计名称出现的次数。

roguebear

这个分隔符有可能是分号，有可能是空格，也有可能是回车，也就是单元格只有一个字符串

约定的童话

好用记得评分，谢谢！
Sub test()
    Set d = CreateObject("scripting.dictionary")
    arr = [c2].CurrentRegion
    For i = 2 To UBound(arr)
        m = Split(arr(i, 1), ";")
        For k = 0 To UBound(m)
            d(m(k)) = d(m(k)) + 1
        Next
    Next
    [g3].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
    [h3].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
End Sub

roguebear

约定的童话 发表于 2020-3-12 19:00
好用记得评分，谢谢！
Sub test()
    Set d = CreateObject("scripting.dictionary")

大神牛逼。 测试完全OjbK。马上评分。 评分最多只能2分。 还不能重复评分。。。