|
如附件和图片所示,取出以"\"分隔的 B2和B6单元格的字符 ,并统计出该被取出字符在A9:A23出现的次数。
Set qy = Union(Range("B2") & "+" & Range("E2"))
arr = Split(qy, "+")
这样好像行不通啊,,求大师帮帮忙。。谢谢了
- Sub Macro1()
- Dim arr, d, i&, j%, s&
- Set d = CreateObject("scripting.dictionary")
- arr = [a9:a23]
- For i = 1 To UBound(arr)
- d(arr(i, 1)) = d(arr(i, 1)) + 1
- Next
- For Each m In Union([b2], [e2])
- x = Split(m, "")
- For j = 0 To UBound(x)
- s = s + 1
- Cells(s + 8, 5) = x(j)
- Cells(s + 8, 6) = d(x(j))
- Next
- Next
- End Sub
复制代码
|
|