Vấn đề Copy trong VBA

[Hoàng Trọng Nghĩa]

Tôi Copy 1 cell với 1 cell bằng phương thức như:
[B1] = [A1] thì OK

Nhưng tôi lại làm với khối cell:
[B1:B5] = [A1:A5] thì không được, tại sao?

Cách nào copy nhanh cho khối ô từ Sheet1 qua Sheet2 mà không cần chọn Select như VD sau :

Sheet1.Range("I16:K20").Copy
Sheet2.Range("I10:K14").Select
ActiveSheet.Paste
Application.CutCopyMode = False

Xin cảm ơn các Anh Chị.

 

[namkpac]

Em dùng đoạn code này mà cũng không hiểu được

'Sub CopyPasteValue()

'Sheets ("Sheet1") Range ("C4: E4"). copy​

'Sheets ("Sheet1") Range ("G10"). PasteSpecial _​

'Paste: = xlPasteValues​

'End Sub​

 

[namkpac]

Em thử với đoạn code này mà vẫn không hiểu được anh giúp em tý với
Sub CopyPasteValue()

Sheets ("Sheet1") Range ("C4: E4"). ​

Copy

Sheets ("Sheet1") Range ("G10"). PasteSpecial _​

Paste: = xlPasteValues​

End Sub​

 

[adult]

Anh thử 2 dòng code này nha :

Sheet2.[A1:A10] = Sheet1.[A1:A10].Value
Sheet1.[A1:A10].Copy Destination:=Sheet2.[A1]

Cách của bạn rất hay và rất nhanh nhưng trường hợp của mình muốn áp dụng sẽ bị vướng
Mình sử dụng code thứ 1 nhưng vì Range của Sheet1 mình dùng End(xldown) thì như vậy Range của Sheet2 cũng không biết chính xác được.

Cách thứ 2: Mình muốn dán paste value thì có thể điều chỉnh như thế nào
Có cách nào để thực hiện không bạn?
Thanks bạn nhiều

 

[comet_1701]

Cách của bạn rất hay và rất nhanh nhưng trường hợp của mình muốn áp dụng sẽ bị vướng
Mình sử dụng code thứ 1 nhưng vì Range của Sheet1 mình dùng End(xldown) thì như vậy Range của Sheet2 cũng không biết chính xác được.

Cách thứ 2: Mình muốn dán paste value thì có thể điều chỉnh như thế nào
Có cách nào để thực hiện không bạn?
Thanks bạn nhiều

Sheet1.[A1:A10].Copy
Sheet2.Range("A1").PasteSpecial xlValues

Bạn thử thế này

 

[themaibn]

Xin chào mọi người, mình mới tìm hiểu về VBA, mình đang có vẫn đề này khúc mắc mà không biết hỏi ở topic nào cực chẳng đã em nhờ topic mình nhé
Mình có 1 file tính với trường dữ liệu đầu vào thay đổi liên tục, làm sao mà bảng tính của mình tự động nhận trường dữ liệu (thay đổi) đó để nó đưa ra cái bảng tính có số dòng bằng số dòng mà trường dữ liệu đầu vào.
Rất mong được mọi người giúp đỡ

 

[namkim92]

.Select

 

[nhqhec2]

Nhờ anh chị viết giúp cho mình đoạn code copy dư liệu Sheet1 sang Sheet như định dạng file kèm theo. Cám ơn Anh Chị

 

[Hoàng Tuấn 868]

Nhờ anh chị viết giúp cho mình đoạn code copy dư liệu Sheet1 sang Sheet như định dạng file kèm theo. Cám ơn Anh Chị

Bạn tham khảo .