|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
本帖最后由 zhong1218 于 2014-1-1 12:43 编辑
- Sub aa()
- Dim lr%, arr, brr, d As Object
- Set d = CreateObject("scripting.dictionary")
- arr = Range("a2").CurrentRegion
- ReDim brr(1 To UBound(arr), 1 To 1)
- For i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- t = t & arr(i, j)
- Next j
- For n = 1 To Len(t)
- d(Mid(t, n, 1)) = ""
- Next n
- k = k + 1
- brr(k, 1) = "'" & Join(d.keys, "")
- d.RemoveAll
- t = ""
- Next i
- Range("f2").Resize(UBound(brr)) = brr
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|