把两列数据相比较，把含有相同的数据保留

kandhong88

老师：
     我请教的问题是：把两列数据相比较，把含有相同的数据保留。
     思路如下：
     1.C列数据和B列相比较，只要C列中含B列中相同数据（不看顺序），则将此数据保留，并将结果显示在“生成区”
     2.举例：C列中929和B列中299含有相同数据（不看顺序），则将929保留在F列。
    把含有相同的数据保留.rar (10.33 KB, 下载次数: 7)

2023-2-22 09:12 上传

点击文件名下载附件

   

skiss

搜一下论坛 数据对比，有很多你这种几乎一模一样的案例。

这个老师分享的帖子就能实现你的需求

https://club.excelhome.net/forum ... amp;_dsign=f4f5490e

cjc209

这就是两列交集 没有什么难度

cjc209

Function 交集(ParamArray Args())
    Dim dic1, dic2, arr
    Set dic1 = CreateObject("scripting.dictionary")
    Set dic2 = CreateObject("scripting.dictionary")
    For Each Rng In Args
        k = k + 1
        If k = 1 Then
            arr = Rng
            If Not IsArray(arr) Then
                ReDim arr(1 To 1, 1 To 1)
                arr(1, 1) = Rng
            End If
            For Each v In arr
                dic1(v & "") = ""
            Next
        Else
            arr = Rng
            If Not IsArray(arr) Then
                ReDim arr(1 To 1, 1 To 1)
                arr(1, 1) = Rng
            End If
            dic2.RemoveAll
            For Each v In arr
                dic2(v & "") = ""
            Next
            For Each v In dic1.keys()
                If Not dic2.exists(v) Then
                    dic1.Remove (v)
                End If
            Next
        End If
    Next
    If dic1.Count > 0 Then
        交集 = Application.Transpose(dic1.keys)
    Else
        交集 = ""
    End If
    Set dic1 = Nothing
    Set dic2 = Nothing
End Function

ykcbf1100

比较简单。

kandhong88

ykcbf1100 发表于 2023-2-22 09:45
比较简单。

ykcbf1100老师：
     您的大作已收悉。有些数据还不能显示，请老师指教。
     例如：C列中344和B列中434含有数字相同，也应保留，但F列没有保留。
    把含有相同的数据保留.rar (17.06 KB, 下载次数: 3)

2023-2-22 11:12 上传

点击文件名下载附件

   

ykcbf1100

kandhong88 发表于 2023-2-22 11:09
ykcbf1100老师：
     您的大作已收悉。有些数据还不能显示，请老师指教。
     例如：C列中344和B列中 ...

你是这个意思啊，只要数字相同就行，而不是整个数值。改一下就可以。
稍等。

fzxba

把含有相同的数据保留.rar (19.29 KB, 下载次数: 14)

2023-2-22 12:30 上传

点击文件名下载附件

ovxyz

应该用sql最简洁吧。

gwjkkkkk

参与一下。。。