VBA实现提取不相同字母 存放到F列

laoau138

VBA实现提取不相同字母  存放到F列

today0427

1. Sub today()
   
2.     Dim i%, j%, arr, s$
   
3.     Columns("e:e").Clear
   
4.     arr = Range("a1:e" & [a65536].End(3).Row)
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Pattern = "[^D-W]"
   
7.         For i = 1 To UBound(arr)
   
8.             For j = 1 To UBound(arr, 2)
   
9.                 If InStr(s, arr(i, j)) = 0 Then s = s & .Replace(arr(i, j), "")
   
10.             Next
    
11.             arr(i, 5) = s: s = ""
    
12.         Next
    
13.     End With
    
14.     [e1].Resize(i - 1.1) = Application.Index(arr, , 5)
    
15. End Sub

复制代码

today0427

咳咳，春哥，吓死婶了！

望帝春心

today0427 发表于 2016-12-29 15:47
咳咳，春哥，吓死婶了！

堵堵你别调皮

laoau138

today0427 发表于 2016-12-29 11:01

几个月没有见面，today返老还童了

laoau138

today0427 发表于 2016-12-29 11:01

理所当然给最佳了


这两条如何做

http://www.excelpx.com/thread-426791-1-1.html

http://www.excelpx.com/thread-426789-1-1.html

laoau138

today0427 发表于 2016-12-29 11:01

today快来，


用VBA计算最短路线长度

http://www.excelpx.com/thread-426816-1-1.html