[حل شده] تقاضای راهنمایی در مورد جمع آوری سلولهای مشابه در دو شیت و انتقال آنها به شیت سوم

[rm58]

با سلام خدمت اساتید محترم
درصورت امکان بنده را راهنمایی بفرمایید:
چطور میشه در دو شیت 1 و 2 ستون b در دوشیت را مقایسه و سلولهای مشابه را در شیت سوم کپی کرد؟

پیشاپیش از لطفتون سپاسگزارم

[DOLFIN]

سلام
با استفاده از تابع if اینکار انجام میشه به این صورت :

=IF('1'!B1='2'!B1;'1'!B1;"") 

این فرمول رو در شیت سوم به روش گفته شده ایجاد کنید سپس به سمت پایین درگ کنید.

[iranweld]

با سلام

با استفاده از ویژوال بیسیک میتوانید از کدهای زیر استفاده کنید

Sub TEST()
Dim K As Integer

Sheet3.Columns("B:B").ClearContents
   
    
K = 2

A = sheet1.Cells(sheet1.Rows.Count, "B").End(xlUp).Row
B = sheet2.Cells(sheet2.Rows.Count, "B").End(xlUp).Row

Sheet3.Range("B1").Value = "A to B"

For I = 1 To A
For J = 1 To B

If sheet1.Range("b" & I).Value = Sheet2.Range("b" & J).Value Then
Sheet3.Range("B" & K).Value = Sheet2.Range("b" & J).Value
K = K + 1
End If

Next J
Next I

End Sub 

[rm58]

خیلی ممنون از لطف شما