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

[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]

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