انتقال داده ها از دو ستون به یک ستون

[seamaster]

سوالی خدمت دوستان و اساتید محترم دارم.
در شیتی دو تا ستون حاوی داده دارم. می خواهم با نوشتن فرمولی تمامی داده های این دو ستون را به ستون دیگر منتقل کنم به طوریکه تمامی داده های غیرتکراری را ثبت و تکراری را یک بار ثبت کند.

برای مثال :

c	b	a
5		1
6		2
1		3
2		4
7

می خواهم در ستون b فرمولی بنویسم که تمامی داده های تکراری و غیرتکراری از دو ستون a و c را (البته فقط یکبار تکرار شوند)درون b ثبت کند.
ممنون می شم که کمکم کنید.

soal.xlsx

[iranweld]

با سلام

فعلا دیتای دو ستون را در ستون مورد نظر پشت سر هم کپی نموده و با آیتم Remove Duplicatis تکراری رو حذف کنید.

[seamaster]

سلام
ممنون از پاسختون.
ولی در اصل می خوام وقتی در ستون a و ستون c داده ها رو می نویسیم به صورت خودکار در ستون b نوشته شود. نمی خوام به صورت دستی کپی کنم.

[iranweld]

فایل پیوست را بررسی کنید

Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A:A,C:C")) Is Nothing Then
    
   On Error Resume Next
    
   z2 = Cells(Rows.Count, "b").End(xlUp).Row
 
   T = 0
         
   For J = 2 To z2
   
   If Target = Range("B" & J) Then
   
   T = 1
   
   Exit For
   
   End If
   
   Next
   
   If T = 0 Then
       
   Range("B" & z2 + 1) = Target
   
       End If
        
    End If
    
    End Sub 

[seamaster]

سلام مجدد
خیلی ممنون از پاسخ کاملتون . خیلی کمک بزرگی کردین.
حالا یه سوالی دیگه برام پیش اومده اگه ستون a و b و c هر کدام توی شیت های مختلف باشن آیا باز می تونم از این دستور استفاده کنم؟

[iranweld]

سلام مجدد
خیلی ممنون از پاسخ کاملتون . خیلی کمک بزرگی کردین.
حالا یه سوالی دیگه برام پیش اومده اگه ستون a و b و c هر کدام توی شیت های مختلف باشن آیا باز می تونم از این دستور استفاده کنم؟

سلام

نه برای یک شیت هستش