Tìm dòng cuối và Copy

[Cuongnv0920]

Xin cháo tất cả các ACE của PGE.
mình có 1 vấn đề mong mọi nguời giúp
ở Sheet1 mình có cột "A" là STT. ở vùng "C2" là dữ liệu cần copy
khi bấm nút COPY thì sẽ được Paste vào dòng cuối cũng của Cột "A"
nhưng mình đang bị là nếu điền số 2 vào vùng "C2" rồi bấm COPY thì số 1 ở Cột "A" cũng thành Số 2 luôn.
mong mọi người giúp là nếu điền STT lần lượt vào vũng "C2" thì các STT khác ở cột "A" cũng ko bị thay đổi theo
Xin cám ơn rất nhiều.

 

[huuthang_bd]

Xin cháo tất cả các ACE của PGE.
mình có 1 vấn đề mong mọi nguời giúp
ở Sheet1 mình có cột "A" là STT. ở vùng "C2" là dữ liệu cần copy
khi bấm nút COPY thì sẽ được Paste vào dòng cuối cũng của Cột "A"
nhưng mình đang bị là nếu điền số 2 vào vùng "C2" rồi bấm COPY thì số 1 ở Cột "A" cũng thành Số 2 luôn.
mong mọi người giúp là nếu điền STT lần lượt vào vũng "C2" thì các STT khác ở cột "A" cũng ko bị thay đổi theo
Xin cám ơn rất nhiều.

Bạn sửa code lại vầy

Sub Lastrowlnonecolumn()
    Range("C2").Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

 

[phulien1902]

Xin cháo tất cả các ACE của PGE.
mình có 1 vấn đề mong mọi nguời giúp
ở Sheet1 mình có cột "A" là STT. ở vùng "C2" là dữ liệu cần copy
khi bấm nút COPY thì sẽ được Paste vào dòng cuối cũng của Cột "A"
nhưng mình đang bị là nếu điền số 2 vào vùng "C2" rồi bấm COPY thì số 1 ở Cột "A" cũng thành Số 2 luôn.
mong mọi người giúp là nếu điền STT lần lượt vào vũng "C2" thì các STT khác ở cột "A" cũng ko bị thay đổi theo
Xin cám ơn rất nhiều.

Thử:

Sub abc()
    Dim LR&
    LR = Range("A65000").End(xlUp).Row + 1
    Range("A" & LR).Value = Range("C2")
End Sub

 

[nguyenthuy13388]

Xin cháo tất cả các ACE của PGE.
mình có 1 vấn đề mong mọi nguời giúp
ở Sheet1 mình có cột "A" là STT. ở vùng "C2" là dữ liệu cần copy
khi bấm nút COPY thì sẽ được Paste vào dòng cuối cũng của Cột "A"
nhưng mình đang bị là nếu điền số 2 vào vùng "C2" rồi bấm COPY thì số 1 ở Cột "A" cũng thành Số 2 luôn.
mong mọi người giúp là nếu điền STT lần lượt vào vũng "C2" thì các STT khác ở cột "A" cũng ko bị thay đổi theo
Xin cám ơn rất nhiều.

Thế này được rồi for làm gì nữa?

Sub Lastrowlnonecolumn()
Dim lastrow

lastrow = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("C2").Copy (Cells(lastrow, "A"))

End Sub

 

[Cuongnv0920]

Thử:

Sub abc()
    Dim LR&
    LR = Range("A65000").End(xlUp).Row + 1
    Range("A" & LR).Value = Range("C2")
End Sub

Cám ơn bác nhiều

Bài đã được tự động gộp: 18/10/18

Thế này được rồi for làm gì nữa?

Sub Lastrowlnonecolumn()
Dim lastrow

lastrow = Sheets("sheet1").Cells(Rows.Count, 1).End(xlUp).Row + 1
Range("C2").Copy (Cells(lastrow, "A"))

End Sub

Cám ơn bác nhiều nhé

Bài đã được tự động gộp: 18/10/18

Bạn sửa code lại vầy

Sub Lastrowlnonecolumn()
    Range("C2").Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

Cám ơn bác nhiều

 

[be_09]

Thử một cách khác:

Sub NhapLieu()
    Range("C2").Copy Range("A65000").End(xlUp).Offset(1)
End Sub

 

[Cuongnv0920]

Thử một cách khác:

Sub NhapLieu()
    Range("C2").Copy Range("A65000").End(xlUp).Offset(1)
End Sub

Cám ơn bác nhiều nhé