|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub 人名出现次数()
- Dim i&, j&, Arr
- Dim d, k, t
- Columns("O:P").ClearContents
- Set d = CreateObject("Scripting.Dictionary")
- Arr = Sheet1.Range("a1:l51")
- For i = 1 To UBound(Arr)
- For j = 1 To UBound(Arr, 2)
- If Arr(i, j) <> "" Then d(Arr(i, j)) = d(Arr(i, j)) + 1
- Next
- Next
- k = d.keys
- t = d.items
- [o2].Resize(d.Count, 1) = Application.Transpose(k)
- [p2].Resize(d.Count, 1) = Application.Transpose(t)
- [o1].Resize(1, 2) = Array("姓名", "次数")
- Set d = Nothing
- End Sub
复制代码 |
|