sửa câu lệnh copy "Destination:" để copy được giá trị "Value" ?

[phamvandunghp84]

Mình đang dùng câu lệnh này để copy dữ liệu của vùng A2:L2 của sheet dữ liệu sang các table sheet lưu trữ.
Câu lệnh này hoạt động đúng khi vùng A2:L2 chỉ chứa dữ liệu, trong trường hợp vùng này có chứa công thức thì nó lại copy công thức mà không copy được giá trị. Mình muốn nó vẫn copy được giá trị thì phải viết như nào mới đúng? Mong mọi người giúp !

Sub Congviec()
Sheets("dulieu").Select
[A2:L2].copy Destination:=Sheets("Lutru").[A1048576].End(xlUp).Offset(1, 0)
[A3:L3].copy Destination:=Sheets("Lutru").[P1048576].End(xlUp).Offset(1, 0)
[A4:L4].copy Destination:=Sheets("Lutru").[AE1048576].End(xlUp).Offset(1, 0)

End Sub

 

[befaint]

" copy được giá trị thì "

 

[phamvandunghp84]

" copy được giá trị thì "

Cảm ơn bạn.
hic hic, cho mình xin một cách nào đó trực tiếp đơn giản hơn được không bạn?
có cách nào dạng đơn giản viết được trực tiếp như copy Value chẳng hạn không bạn?

[A2:L2].Value=Sheets("Lutru").[A1048576].End(xlUp).Offset(1, 0)

 

[Phuocam]

trong trường hợp vùng này có chứa công thức thì nó lại copy công thức mà không copy được giá trị.
Mình muốn nó vẫn copy được giá trị thì phải viết như nào mới đúng?

Thử code sau:

Sub Congviec()
Sheets("Lutru").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12).Value = Sheets("dulieu").Range("A2:L2").Value
End Sub

 

[phamvandunghp84]

Thử code sau:

Sub Congviec()
Sheets("Lutru").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Resize(1, 12).Value = Sheets("dulieu").Range("A2:L2").Value
End Sub

Oh Tuyệt vời quá. Cảm ơn bạn rất nhiều !