Giúp mình code copy dữ liệu (1 người xem)

[hoang0569]

Mình muốn lưu lai 1 vùng dữ liệu ví dụ: Vùng J1:K100 của sheet1 workbook DATA, sang workbook mới, giúp mình code trường hợp này nhé, cảm ơn nhiều.

 

[giaiphap]

Mình muốn lưu lai 1 vùng dữ liệu ví dụ: Vùng J1:K100 của sheet1 workbook DATA, sang workbook mới, giúp mình code trường hợp này nhé, cảm ơn nhiều.

Bạn dùng thử code này xem

Public Sub GPE()
Dim Wb As Workbook
Set Wb = Workbooks.Add
ThisWorkbook.Sheets(1).Range("J1:K100").Copy Wb.Sheets(1).[a1]
Set Wb = Nothing
End Sub