|
本帖最后由 kerry218 于 2014-6-3 09:39 编辑
各位老师好,我现在急求怎样能把同行不同列的英文单词数据去重,例如:
maize pcr maize
mycotoxins quality quality
结果变为:
maize pcr
mycotoxins quality
由于数据量太多了,不知道各位老师有好的办法没有,谢谢了
本帖最后由 qh8600 于 2014-6-3 09:59 编辑
kerry218 发表于 2014-6-3 09:40
谢谢您,附件已上传,辛苦老师了 - Sub demo()
- Dim ar, br, str As String, d As Object, i, j
- Set d = CreateObject("Scripting.Dictionary")
- ar = Sheet1.Range("A1").CurrentRegion
- ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
- For i = 1 To UBound(ar)
- cnt = 0
- For j = 1 To UBound(ar, 2)
- str = ar(i, j)
- If Not d.Exists(str) Then
- cnt = cnt + 1
- br(i, cnt) = ar(i, j)
- End If
- Next
- Next
- With Sheet2
- .Rows("1:1048576").Delete Shift:=xlUp
- .Cells(1, 1).Resize(UBound(ar), cnt) = br
- End With
- End Sub
复制代码运行宏,结果在第二个表中
关键词同行不同列去重.rar
(862.86 KB, 下载次数: 28)
|
|