|
EXCEL高手用VBA按行进行字符串比较过滤
比较下面字符串
1,用VBA读取C盘123.TXT
2,按行进行字符串比较,当某一行字符串与另一行字符串完全相同,只保留其中一行,另外一行直接删除,有多行相同只保留一行
例如:下面有两行相同,只保留一行,用VBA如何过滤相同行字符串
http://www.baidu.com/p/寥若_晨星2013?from=zhidao
看123
- Sub Macro1()
- wj = ThisWorkbook.Path & "\123.txt"
- Set d = CreateObject("scripting.dictionary")
- Open wj For Input As #1
- w = Split(StrConv(InputB(LOF(1), #1), vbUnicode), vbCrLf)
- Close #1
- Open wj For Output As #1
- For i = 0 To UBound(w)
- If w(i) <> "" And Not d.exists(w(i)) Then
- d(w(i)) = ""
- Write #1, w(i)
- End If
- Next
- Close #1
- End Sub
复制代码
|
|