Các bạn giúp mình tạo 1 macro copy và paste special (value) với (2 người xem)

[thang_brvt]

Vd như: sheet 1
A1= bảo B1=1
A2= thành B2=2
A3= vy B3=3
Nếu sheet 2
B1=2 thì A1 sẽ copy từ a2 shéet1 qua
B2=3 thì A2 sẽ copy từ a3 shéet1 qua
tất cả đều paste bằng paste special.... cảm ơn các bạn nhiều (

 

[SA_DQ]

. . . . . . . . . . . . . . . . . . . . . . . . . . . .

 

[Cá ngừ F1]

Vd như: sheet 1
A1= bảo B1=1
A2= thành B2=2
A3= vy B3=3
Nếu sheet 2
B1=2 thì A1 sẽ copy từ a2 shéet1 qua
B2=3 thì A2 sẽ copy từ a3 shéet1 qua
tất cả đều paste bằng paste special.... cảm ơn các bạn nhiều (

Tốt nhất là gửi dữ liệu thật lên xem sao.
Chứ code copy paste thì đơn giản thôi. Ví dụ

...
range("A1:A5").copy
range("B1").paste pastespecial 3
...

 

[Quang_Hải]

Vd như: sheet 1
A1= bảo B1=1
A2= thành B2=2
A3= vy B3=3
Nếu sheet 2
B1=2 thì A1 sẽ copy từ a2 shéet1 qua
B2=3 thì A2 sẽ copy từ a3 shéet1 qua
tất cả đều paste bằng paste special.... cảm ơn các bạn nhiều (

Bói quẻ thì quẻ bảo rằng chủ topic muốn thế này

Sub ValCopy()
Dim r As Long
For r = 1 To 3
   Cells(r, 1) = Sheet1.[B:B].Find(Cells(r, 2), , , 1).Offset(, -1)
Next
End Sub