Hỏi về cách chuyển dữ liệu đồng thời chèn thêm dữ liệu từ vị trí khác.

[halogen]

Nhờ các bác làm và up lại dùm.
Cám ơn vì tất cả!

 

[anhphuong]

Nhờ các bác làm và up lại dùm.
Cám ơn vì tất cả!

1/ Copy
2/ Paste special/Value and number...
3/ Data/Sort/(Cot Ngay)

Xem file kèm theo(Kích nút Chuyển ở Sheet1)

 

[SA_DQ]

Cách tương tự, nhưng nhờ CurrentRegion trợ giúp

[B]Sub CopyWithCurrentRegion()[/B]
' Macro recorded 6/27/2008 by SaDQ (GPE.COM)

 Sheet2.Range("A1:B" & Sheet1.[a65432].End(xlUp).Row + 9).Clear
 
 Sheet1.[A2].CurrentRegion.Copy
 Sheet2.Select:             [A1].Select
 Selection.PasteSpecial Paste:=xlPasteValues
        
 Sheet1.Select:                 [a65432].End(xlUp).CurrentRegion.Select
 Selection.Copy
 Sheet2.Select:                 Range("A" & [a65432].End(xlUp).Row + 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues
 Application.CutCopyMode = False
    
 Columns("A:B").Select
 Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Key2:=Range("A2") _
    , Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1
[B]End Sub[/B]

 

[halogen]

Đa tạ mọi người đã giúp đỡ.