[已解决]求助:重复数据清空

xyzxyz07

把重复数据清空,见附件:

eMC4oFtd.rar (2.16 KB, 下载次数: 10)

2010-4-5 18:37 上传

点击文件名下载附件
求助:重复数据清空

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-5 18:53

Sub test()
Dim d As Object
Dim arr, i%, k%
arr = [a1:g10]
For i = 1 To UBound(arr)
    Set d = CreateObject("Scripting.Dictionary")
    For k = 1 To UBound(Application.Transpose(arr))
        If Not d.Exists(arr(i, k)) Then
            d(arr(i, k)) = ""
        Else
            arr(i, k) = ""
        End If
    Next
    Set d = Nothing
Next
[a1:g10] = arr
End Sub

跳转到最佳答案楼层

adinge

期待答案

办公软件123

用函数我会，用VBA俺不ＨＵＩ[em04]

枯禅

Sub test()
Dim d As Object
Dim arr, i%, k%
arr = [a1:g10]
For i = 1 To UBound(arr)
    Set d = CreateObject("Scripting.Dictionary")
    For k = 1 To UBound(Application.Transpose(arr))
        If Not d.Exists(arr(i, k)) Then
            d(arr(i, k)) = ""
        Else
            arr(i, k) = ""
        End If
    Next
    Set d = Nothing
Next
[a1:g10] = arr
End Sub

zsd5237

学习[em02][em02]