شیت 1 با شیت 2 ستون b مقایسه شود

[saman501]

تعداد ستون ها زیاده و تعداد اسامی هم بالا و وقتی از این کد استفاده میکنم برنامه اکسل هنگ میکنه
Application.ScreenUpdating = False
Application.DisplayAlerts = False
z1 = Sheet2.Cells(Sheet2.Rows.Count, "b").End(xlUp).Row
Z2 = Sheet3.Cells(Sheet3.Rows.Count, "b").End(xlUp).Row
K = 2

For i = 2 To z1

For j = 2 To Z2

If Sheet2.Range("b" & i) = Sheet2.Range("b" & j) And Sheet3.Range("b" & i) <> 3 Then

Sheet4.Range("A" & K) = Sheet2.Range("A" & i)
Sheet4.Range("B" & K) = Sheet2.Range("B" & i)
Sheet4.Range("C" & K) = Sheet2.Range("C" & i)
Sheet4.Range("d" & K) = Sheet2.Range("d" & i)
Sheet4.Range("e" & K) = Sheet2.Range("e" & i)
Sheet4.Range("f" & K) = Sheet2.Range("f" & i)
Sheet4.Range("g" & K) = Sheet2.Range("g" & i)
Sheet4.Range("h" & K) = Sheet2.Range("h" & i)
Sheet4.Range("i" & K) = Sheet2.Range("i" & i)
Sheet4.Range("j" & K) = Sheet2.Range("j" & i)
Sheet4.Range("k" & K) = Sheet2.Range("k" & i)
Sheet4.Range("l" & K) = Sheet2.Range("l" & i)
Sheet4.Range("m" & K) = Sheet2.Range("m" & i)
Sheet4.Range("n" & K) = Sheet2.Range("n" & i)
Sheet4.Range("o" & K) = Sheet2.Range("o" & i)
Sheet4.Range("p" & K) = Sheet2.Range("p" & i)
Sheet4.Range("q" & K) = Sheet2.Range("q" & i)
Sheet4.Range("r" & K) = Sheet2.Range("r" & i)
Sheet4.Range("s" & K) = Sheet2.Range("s" & i)
Sheet4.Range("t" & K) = Sheet2.Range("t" & i)
Sheet4.Range("u" & K) = Sheet2.Range("u" & i)
Sheet4.Range("v" & K) = Sheet2.Range("v" & i)

K = K + 1
Sheet4.Range("A" & K) = Sheet3.Range("A" & i)
Sheet4.Range("B" & K) = Sheet3.Range("B" & i)
Sheet4.Range("C" & K) = Sheet3.Range("C" & i)
Sheet4.Range("d" & K) = Sheet3.Range("d" & i)
Sheet4.Range("e" & K) = Sheet3.Range("e" & i)
Sheet4.Range("f" & K) = Sheet3.Range("f" & i)
Sheet4.Range("g" & K) = Sheet3.Range("g" & i)
Sheet4.Range("h" & K) = Sheet3.Range("h" & i)
Sheet4.Range("i" & K) = Sheet3.Range("i" & i)
Sheet4.Range("j" & K) = Sheet3.Range("j" & i)
Sheet4.Range("k" & K) = Sheet3.Range("k" & i)
Sheet4.Range("l" & K) = Sheet3.Range("l" & i)
Sheet4.Range("m" & K) = Sheet3.Range("m" & i)
Sheet4.Range("n" & K) = Sheet3.Range("n" & i)
Sheet4.Range("o" & K) = Sheet3.Range("o" & i)
Sheet4.Range("p" & K) = Sheet3.Range("p" & i)
Sheet4.Range("q" & K) = Sheet3.Range("q" & i)
Sheet4.Range("r" & K) = Sheet3.Range("r" & i)
Sheet4.Range("s" & K) = Sheet3.Range("s" & i)
Sheet4.Range("t" & K) = Sheet3.Range("t" & i)
Sheet4.Range("u" & K) = Sheet3.Range("u" & i)
Sheet4.Range("v" & K) = Sheet3.Range("v" & i)
K = K + 1
End If
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True

[saman501]

نمونه فایل که باید روی اون کار انجام شود نام شرکت باید مقایسه شودbook123.rar

[saman501]

نمونه

[iranweld]

با سلام

در فایل پیوست اطلاعات دو شیت در یک شیت ادغام شد و دیتای هر شیت با یک رنگ مشخص گردید حال با سورت کردن میتوانید داده های مشابه را زیر هم مرتب و بررسی نمایید