VBA把A列删除重复值后 得到C列如此

laoau138

VBA把A列删除重复值后  得到C列如此

laoau138

谁来做这个

today0427

1. Sub td() '直接写入结果数组，较为简便
   
2.     Dim i%, ar, br(65 To 65 + 26 * 2)
   
3.     ar = Range("a1:a" & [a65536].End(3).Row)
   
4.         For i = 1 To UBound(ar)
   
5.            If ar(i, 1) <> "" Then br(Asc(ar(i, 1)) * 2 - 65) = ar(i, 1)
   
6.         Next
   
7.     [g2].Resize(52) = Application.Transpose(br)
   
8. End Sub
   
9. Sub today() '正则，复杂又变态，仅为提供不同思路
   
10.     Dim s$, i%, ar, str$, br()
    
11.         ar = Range("a1:a" & [a65536].End(3).Row)
    
12.         For i = 1 To UBound(ar)
    
13.            If ar(i, 1) <> "" Then s = s & ar(i, 1)
    
14.         Next
    
15.         For i = 1 To 26
    
16.             str = str & Chr(i + 64)
    
17.         Next
    
18.     With CreateObject("vbscript.regexp")
    
19.         .Pattern = "[^" & s & "]"
    
20.         .Global = True
    
21.         .ignorecase = False
    
22.         st = .Replace(str, "")
    
23.     End With
    
24.     ReDim br(1 To Len(st) * 2)
    
25.     For i = 1 To Len(st)
    
26.         br(i * 2 - 1) = Mid(st, i, 1)
    
27.     Next
    
28.     [e2].Resize(Len(st) * 2) = Application.Transpose(br)
    
29. End Sub

复制代码

laoau138

today0427 发表于 2017-2-11 08:03

today 高手还有好多没有做

today0427

感觉我第一种方法有点问题，等会儿不忙了修改一下

laoau138

today0427 发表于 2017-2-11 09:17
感觉我第一种方法有点问题，等会儿不忙了修改一下

VBA最好用两种方法  把AF列数据  按行去掉相同数字

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


VBA如何把A列合并单元格自动添加序号


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

today0427

为什么你好像不用过年不用过节不用双休不用上学还不用上班，成天泡在论坛上？谁养活你呢？

laoau138

today0427 发表于 2017-2-11 19:10
为什么你好像不用过年不用过节不用双休不用上学还不用上班，成天泡在论坛上？谁养活你呢？

谁说啊，