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

[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 فایل
فقط یه سری قواعد هست که باید رعایت کنید
لینکش رو اگه پیدا کردم قرار خواهم داد