[已解决]用VBA打开TXT文档 把相同网址过滤只保留一个

laoau138

用VBA打开TXT文档  把相同网址过滤只保留一个

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-17 22:09

1. Sub aaa()
   
2. Dim arr, s&, d As Object, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Open ThisWorkbook.Path & "\131.txt" For Input As #1
   
5. arr = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
6. For i = 0 To UBound(arr)
   
7.   If arr(i) <> "" Then d(arr(i)) = ""
   
8. Next i
   
9. [a1].Resize(d.Count) = Application.Transpose(d.keys)
   
10. Close #1
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, s&, d As Object, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Open ThisWorkbook.Path & "\131.txt" For Input As #1
   
5. arr = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
   
6. For i = 0 To UBound(arr)
   
7.   If arr(i) <> "" Then d(arr(i)) = ""
   
8. Next i
   
9. [a1].Resize(d.Count) = Application.Transpose(d.keys)
   
10. Close #1
    
11. End Sub

复制代码