求大神帮忙更改宏代码 跪求跪求

点点点玷

查看第二个  那个1 是不应该出现的  因为第二列是没有1的  只展示相同的数字  麻烦各位大神帮我改改宏
数据.rar (11.35 KB, 下载次数: 5)

2018-2-9 20:11 上传

点击文件名下载附件

具体文档里面有  谢谢各位大神

小花鹿

Public Function Samenumber(r1 As Range, r2 As Range)
    Dim i%, arr(), S, k%
    k = 0
    S = Split(r1, ",")
    For i = 0 To UBound(S)
        If InStr("," & r2 & ",", "," & S(i) & ",") > 0 Then
            k = k + 1
            ReDim Preserve arr(1 To k)
            arr(k) = S(i)
        End If
    Next
    Samenumber = Join(arr, ",")
End Function

点点点玷

小花鹿 发表于 2018-2-9 20:34
Public Function Samenumber(r1 As Range, r2 As Range)
    Dim i%, arr(), S, k%
    k = 0

感谢大神。很实用

点点点玷

小花鹿 发表于 2018-2-9 20:34
Public Function Samenumber(r1 As Range, r2 As Range)
    Dim i%, arr(), S, k%
    k = 0

感谢大神。很实用