پرسش پیدا کردن فیلدهای مشترک در دو ستون

[asad5252]

سلام دو ستون شماره شاسی دارم میخواهم ببینم موارد مشترک کدامها هستند البته اگر قسمتی هم مشترک بودند پیدا کند مثل عدد 3456 و63456را به عنوان مشترک پیدا کند

[كامران]

سلام دو ستون شماره شاسی دارم میخواهم ببینم موارد مشترک کدامها هستند البته اگر قسمتی هم مشترک بودند پیدا کند مثل عدد 3456 و63456را به عنوان مشترک پیدا کند

با شرط این که ستونها A و B باشه کد زیر کار رو براتون انجام میده

موفق باشید

Sub mach()


    ea = Application.WorksheetFunction.CountA(Range("a:a"))
    eb = Application.WorksheetFunction.CountA(Range("b:b"))
        For b = 1 To eb
            c = 3
                For a = 1 To ea
                    st = InStr(1, Cells(a, 1), Cells(b, 2))
                        If st <> 0 Then
                            Cells(b, c) = "A" & a
                            c = c + 1
                        End If
                Next a
        Next b
End Sub