[已解决]求助-在线等~详情请看附件~

likeblue

问题.rar (4.62 KB, 下载次数: 15)

2011-5-28 11:46 上传

点击文件名下载附件

问题：把sheet2中不同于sheet1中的值 找出来，并添加到sheet1中最后1非空行
详情请看附件，在线等~谢谢了

最佳答案

月排行榜 / 总排行榜

liuts

2011-5-28 12:13

1. Sub 不重复值()
   
2.     Dim dic As Object, arr
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     arr = Sheet1.Range("a1:a" & [a65536].End(xlUp).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         dic(Cells(i, 1).Value) = ""
   
7.     Next
   
8.     arr = Sheet2.Range("a1:a" & Sheet2.[a65536].End(xlUp).Row)
   
9.     For i = 1 To UBound(arr)
   
10.         dic(Sheet2.Cells(i, 1).Value) = ""
    
11.     Next
    
12.     Sheet1.[a1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
13.     Set dic = Nothing
    
14. End Sub

复制代码

跳转到最佳答案楼层

格子e先生

问题还真不怎么看得懂

likeblue

LS的，请问哪里不清楚，详情看附件吧~

liuts

1. Sub 不重复值()
   
2.     Dim dic As Object, arr
   
3.     Set dic = CreateObject("scripting.dictionary")
   
4.     arr = Sheet1.Range("a1:a" & [a65536].End(xlUp).Row)
   
5.     For i = 1 To UBound(arr)
   
6.         dic(Cells(i, 1).Value) = ""
   
7.     Next
   
8.     arr = Sheet2.Range("a1:a" & Sheet2.[a65536].End(xlUp).Row)
   
9.     For i = 1 To UBound(arr)
   
10.         dic(Sheet2.Cells(i, 1).Value) = ""
    
11.     Next
    
12.     Sheet1.[a1].Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    
13.     Set dic = Nothing
    
14. End Sub

复制代码

likeblue

谢谢LS的朋友  速度真快，NB~

lisachen

liuts师兄用字典 真快
数据量大了 使用公式太慢

likeblue

虽然搞定了一个表，但是希望能读懂，以便下次遇到类似的问题，可以自己搞定
能不能告诉一下 6,10 ,12行的意思，特别是12行~谢谢了~

likeblue

人工置顶一下，哪位看到了帮忙解释一下~
没的权限发短消息~

likeblue

这个程序好像还有点问题~

有时候不能 找到所有不同的值~