تطبیق دو بانک اطلاعاتی با ستون مشترک

---

شرح پروژه

فایل اکسل من شامل دو شیت1 و شیت2 می باشد. شیت 1 فایل مقصد، و شیت 2 فایل مبدا می باشد.

میخواهم با استفاده از ستون مشترک دو شیت یعنی ستون 12 از شیت 1 و ستون 26 از شیت 2 تعدادی از ستون‌ها را از فایل مبدا به مقصد در ردیف خودش انتقال بدهم.

کد زیر نمونه کدی است که من برای انتقال استفاده کردم. که از 26000 ردیف تا 20000 از آن را انتقال دادم اما ادامه آن با هنگ کردن سیستم همراه می‌شود.

کاری که من می خواهم یک کد موثر برای انجام این کار و همچنین موارد مشابه در آینده است.

Private Sub CommandButton1_Click()

Dim a As Long

Dim b As Long

b = Worksheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row

a = Worksheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row

On Error Resume Next

For i = 20690 To 20700

    For j = 5 To b

    If (Worksheets("sheet1").Cells(i, 12).Value = Worksheets("sheet2").Cells(j, 26).Value) Then

     Worksheets("sheet2").Range("af" & j).Copy Worksheets("sheet1").Range("bx" & i)

     Worksheets("sheet2").Range("t" & j).Copy Worksheets("sheet1").Range("by" & i)

     Worksheets("sheet2").Range("u" & j).Copy Worksheets("sheet1").Range("bz" & i)

     Worksheets("sheet2").Range("x" & j).Copy Worksheets("sheet1").Range("ca" & i)

     Worksheets("sheet2").Range("ag" & j).Copy Worksheets("sheet1").Range("cb" & i)

     Worksheets("sheet2").Range("ah" & j).Copy Worksheets("sheet1").Range("cc" & i)

     Worksheets("sheet2").Range("z" & j).Copy Worksheets("sheet1").Range("cd" & i)

     Worksheets("sheet2").Range("aa" & j).Copy Worksheets("sheet1").Range("ce" & i)

     End If

    Next

Next

End Sub

این پروژه شامل 1 فایل مهم است، لطفا قبل از ارسال پیشنهاد حتما نسبت به بررسی این فایل اقدام فرمایید.

مهارت ها و تخصص های مورد نیاز

---

---