数据匹配的问题.求老师帮忙！谢谢！

Bobli0208

匹配的问题.rar (6.32 KB, 下载次数: 49)

2014-8-4 18:58 上传

点击文件名下载附件

ABCD  代替的是名字,并非字母.排列顺序无要求

maditate

1. Sub test()
   
2. '不知道楼主的真实意图是什么，仅根据楼主提供的数据与要求结果编写。
   
3. 
   
4. mylastrow = Range("A65536").End(xlUp).Row
   
5. arr = Join(Application.Transpose(Range("A2:A" & mylastrow)))
   
6. 
   
7. ReDim brr(1 To 26)
   
8. For h = 1 To 26
   
9.     If InStr(arr, Chr(h + 64)) <> Empty Then
   
10.      brr(h) = Chr(h + 64)
    
11.     End If
    
12. Next h
    
13. Range("D2:D27") = Application.Transpose(brr)
    
14. 
    
15. mylastrow = Range("B65536").End(xlUp).Row
    
16. arr = Join(Application.Transpose(Range("B2:B" & mylastrow)))
    
17. ReDim brr(1 To 26)
    
18. 
    
19. For h = 1 To 26
    
20.     If InStr(arr, Chr(h + 64)) <> Empty Then
    
21.      brr(h) = Chr(h + 64)
    
22.     End If
    
23. Next h
    
24. Range("E2:E27") = Application.Transpose(brr)
    
25. 
    
26. End Sub
    

复制代码

liulang0808

d,e两列数据必须这么排列吗？比如A列数据中与B列不重复的排在前面，重复的排在后面是否可以？

Bobli0208

maditate 发表于 2014-8-4 19:43

如果字母的话你这个可以.我只是为了方便。。如果是汉字名字那该怎么弄那？？

maditate

Bobli0208 发表于 2014-8-4 19:58
如果字母的话你这个可以.我只是为了方便。。如果是汉字名字那该怎么弄那？？

那就请你回答3楼的问题。

Bobli0208

maditate 发表于 2014-8-4 19:43

你这个 只局限于26个英文字母.  我想要的是名字类型的那。可以弄嘛？

Bobli0208

liulang0808 发表于 2014-8-4 19:50
d,e两列数据必须这么排列吗？比如A列数据中与B列不重复的排在前面，重复的排在后面是否可以？

可以。 但是  对应两列 没有的   对应关系前面要有空

maditate

Bobli0208 发表于 2014-8-4 20:00
你这个 只局限于26个英文字母.  我想要的是名字类型的那。可以弄嘛？

假设ABC此类字母用汉字替代，你能保证B一定排在C前面吗？

Bobli0208

maditate 发表于 2014-8-4 20:02
假设ABC此类字母用汉字替代，你能保证B一定排在C前面吗？

顺序没关系 。。但是 假设 A列有的 B列没有 ，那样B列 为空, 反之B列有的  A列为空. 顺序没关系.

liulang0808

Bobli0208 发表于 2014-8-4 20:01
可以。 但是  对应两列 没有的   对应关系前面要有空

使用字典吧。。。
这个可以有的