[已解决]用VBA数组不相同字母取出来放F列

laoau138

用VBA数组不相同字母取出来放F列

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-3-25 14:05

1. Sub aaa()
   
2. Dim arr, ar, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. For Each ar In arr
   
6.   If Asc(ar) > 67 And Asc(ar) < 88 Then d(ar) = ""
   
7. Next ar
   
8. [f2].Resize(d.Count) = Application.Transpose(d.keys)
   
9. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, ar, d As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. For Each ar In arr
   
6.   If Asc(ar) > 67 And Asc(ar) < 88 Then d(ar) = ""
   
7. Next ar
   
8. [f2].Resize(d.Count) = Application.Transpose(d.keys)
   
9. End Sub

复制代码