Xuất dữ liệu vào Sheet khac!

[nmhnndt21]

Xin các cao thủ chi cho em cách: Khi em ấn vào nút Xuất 4 lần thì kết quả A2 của Sheet 1 sẽ xuất sang Cột C của Sheet 2 thành 4 hàng như file đính kèm của em!
Em xin chân thành cảm ơn các cao thủ ạ!

 

[phulien1902]

Xin các cao thủ chi cho em cách: Khi em ấn vào nút Xuất 4 lần thì kết quả A2 của Sheet 1 sẽ xuất sang Cột C của Sheet 2 thành 4 hàng như file đính kèm của em!
Em xin chân thành cảm ơn các cao thủ ạ!

Thấp thủ có được tham gia không vậy? Bạn thử:

Sub Test()
        Sheet1.Range("C2").Copy
        Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End Sub

 

[nmhnndt21]

Thấp thủ có được tham gia khng vậy? Bạn thử:

Sub Test()
        Sheet1.Range("C2").Copy
        Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1).PasteSpecial xlPasteValues
End Sub

OK Cảm ơn Bác nhiều nhé em tìm trên mạng mà tìm mãi chẳng ra. Cũng chẳng biết tìm từ khóa ntn. Giờ thì làm đc rồi em xin chân thành cảm ơn bác nhé!

 

[nguyenthuy13388]

OK Cảm ơn Bác nhiều nhé em tìm trên mạng mà tìm mãi chẳng ra. Cũng chẳng biết tìm từ khóa ntn. Giờ thì làm đc rồi em xin chân thành cảm ơn bác nhé!

Thêm 1 lựa chọn nữa

Sub Test()
Sheet2.Range("C" & Rows.Count).End(xlUp).Offset(1) = Sheet1.Range("C2").value
End Sub