[已解决]从P列取值，将包含（XS-）的条码，放到B列，保留唯一值。

iphone9

从P列取值，将包含（XS-）的条码，放到B列，保留唯一值。.rar (70.06 KB, 下载次数: 3)

2016-9-24 21:56 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

苏子龙

2016-9-24 23:31

Sub tt()
    Dim arr, i%
    Dim dic As Object
    Range("b3:b65536").ClearContents
    arr = Range("p9:p" & [p9].End(xlDown).Row)
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        If Left(arr(i, 1), 3) = "XS-" Then
            If Not dic.Exists(arr(i, 1)) Then
                dic(arr(i, 1)) = arr(i, 1)
            End If
        End If
    Next i
    Range("b3").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    Set dic = Nothing
End Sub

跳转到最佳答案楼层

苏子龙

Sub tt()
    Dim arr, i%
    Dim dic As Object
    Range("b3:b65536").ClearContents
    arr = Range("p9:p" & [p9].End(xlDown).Row)
    Set dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(arr)
        If Left(arr(i, 1), 3) = "XS-" Then
            If Not dic.Exists(arr(i, 1)) Then
                dic(arr(i, 1)) = arr(i, 1)
            End If
        End If
    Next i
    Range("b3").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
    Set dic = Nothing
End Sub