find and replace

[ali.b]

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

در شیت اول ی سری داده دارم که با یک عدد مشخص میشن و در شیت بعدی هم به ترتیب باید کنار هم قرار بگرین

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

[iranweld]

با سلام
کدهای زیر را تست بفرمایید

Sub TEST()

Dim I, J As Integer
Dim x, y, Z, W As Integer


x = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
y = Sheet2.Cells(Sheet2.Rows.Count, "A").End(xlUp).Row

For I = 1 To x
For J = 1 To y


If Sheet1.Range("A" & I).Value = Sheet2.Range("A" & J).Value Then

Sheet1.Range("A" & I).End(xlDown).Select
   
 
   
W = ActiveCell.Row - 1



For Z = I To W
 
  

If Sheet1.Range("B" & Z).Value <> "" Then

Sheet2.Range("B" & J).Value = Sheet1.Range("B" & Z).Value

End If

If Sheet1.Range("C" & Z).Value <> "" Then

Sheet2.Range("C" & J).Value = Sheet1.Range("C" & Z).Value

End If

If Sheet1.Range("D" & Z).Value <> "" Then

Sheet2.Range("D" & J).Value = Sheet1.Range("D" & Z).Value

End If

If Sheet1.Range("E" & Z).Value <> "" Then

Sheet2.Range("E" & J).Value = Sheet1.Range("E" & Z).Value

End If


Next Z

End If


Next J

Next I

End Sub