یافتن داده تکراری در سه شیت

[hamid.mcse93]

سلام
در فایلی که برایتان در ضمیمه ارسال نمودم می خواهم نام شرکتهایی که در هر سه شیت تکراری وجود دارد را در شیت 4 خود اکسل درج نماید
ممنون

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[generalsamad]

با سلام
با استفاده از فرمول زیر بصورت آرایه ای میتونید به جواب برسید

=IFERROR(IFERROR(IFERROR(INDEX(Table1[نام شرکت];MATCH(0;COUNTIF(A1:$A$1;Table1[نام شرکت])+IF(COUNTIF(Table1[نام شرکت];Table1[نام شرکت])>1;0;1);0));INDEX(Table2[نام شرکت];MATCH(0;COUNTIF(A1:$A$1;Table2[نام شرکت])+IF((COUNTIF(Table2[نام شرکت];Table2[نام شرکت])+COUNTIF(Table1[نام شرکت];Table2[نام شرکت]))>1;0;1);0)));INDEX(Table3[نام شرکت];MATCH(0;COUNTIF(A$1:$A1;Table3[نام شرکت])+IF((COUNTIF(Table3[نام شرکت];Table3[نام شرکت])+COUNTIF(Table1[نام شرکت];Table3[نام شرکت])+COUNTIF(Table2[نام شرکت];Table3[نام شرکت]))>1;0;1);0)));"") 

فایل ضمیمه گردید

[hamid.mcse93]

سلام برای سه تا فایل اکسل بزرگ دارم چی؟ بازم همین روش

[generalsamad]

با سلام
این فرمول که قرار دادم مربوط به فایل ضمیمه بود
برای 3 فایل باید فرمول رو ویرایش کرد
بفرض اسامی فایلها بدین صورت میباشد
1.xlsx
2.xlsx
3.xlsx
و هر سه تا فایل در یک مسیر (پوشه) قرار دارند
مثال بالا جستجو بر اساس 3 تا جدول در یک فایل انجام میشد
برای جستجو در 3تا فایل باید اسم فایل به همراه شیت و نام جدول وارد شود
مثلا جدول اول در فایل 1 قرار دارد
در فرمول بالا این فرمول بود

Table1[نام شرکت] 

ولی برای این سوال بدین صورت باید تغییر کنه

[1]Sheet1!Table1[نام شرکت] 

یعنی جستجو کن در فایل 1 شیت 1 جدول 1
سوالی داشتید بفرمائید من و دوستان راهنمائی خواهیم کرد

[iranweld]

با سلام

و با کسب اجازه از دوست خوبم جنرال صمد
فایل پیوست با VB تهیه گردید

Sub CommandButton1_Click()

Dim i, j, k, z, x, y, r As Integer, rng As Range

z = 2
'================================================
x = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row
r = Sheet3.Cells(Sheet3.Rows.Count, "A").End(xlUp).Row
'=================================================
    Sheet4.Select
    Sheet4.Columns("A:d").Select
    Selection.ClearContents
    Range("A1").Select
'=================================================
    For i = 2 To x
    
             For j = 2 To y
      
      For k = 2 To r
        
       If Sheet1.Cells(i, 1).Value = Sheet2.Cells(j, 1).Value Then
        
         If Sheet2.Cells(j, 1).Value = Sheet3.Cells(k, 1).Value Then
        
            Sheet4.Cells(z, 1).Value = Sheet1.Cells(i, 1).Value
            
              Sheet4.Cells(z, 2).Value = Sheet1.Cells(i, 2).Value
              
                Sheet4.Cells(z, 3).Value = Sheet2.Cells(j, 2).Value
                
                    Sheet4.Cells(z, 4).Value = Sheet3.Cells(k, 2).Value
                    
     'گ========================================================================
                    
                    Sheet4.Cells(1, 1).Value = ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(32) & ChrW(1588) & ChrW(1585) & ChrW(1705) & ChrW(1578)

                    Sheet4.Cells(1, 2).Value = ChrW(1588) & ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1575) & ChrW(1608) & ChrW(1604)

                    Sheet4.Cells(1, 3).Value = ChrW(1588) & ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1583) & ChrW(1608) & ChrW(1605)

                    Sheet4.Cells(1, 4).Value = ChrW(1588) & ChrW(1740) & ChrW(1578) & ChrW(32) & ChrW(1587) & ChrW(1608) & ChrW(1605)

                        
            z = z + 1
            
            End If
            
                 End If
                        
            Next k
                Next j
                   Next i
            
  

End Sub 

[hamid.mcse93]

سلام دوست عزیز
من الان سه تا فایل رو در یک پوشه با نامهای 1 2 3 ذخیره و کپی کردم حالا این کد را میشه بگید کجا بزنم

[generalsamad]

با سلام
توی فایل چهارم یا یکی از این 3 فایل
فقط یه سری قواعد هست که باید رعایت کنید
لینکش رو اگه پیدا کردم قرار خواهم داد