Copy và đánh số thứ tự

[hongphuong1997]

Khi sử dụng nên có tiêu đề cho giống File thực tế (sẽ tránh được nhằm lẫn trong việc nhập liệu).
Ngay chỗ này nó sẽ ảnh hưởng đến việc áp dụng code: Có khi nào nhập dữ liệu ở Sheet1 có 3 hoặc 6, 7 dòng hay hơn nữa không? Hay là lúc nào cũng cố định 5 dòng?

Lúc nào cũng có 5 dòng bác à

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

Thử:

Sub abc()
   Dim LR&, i&
     LR = Sheets("Sheet2").Range("B60000").End(xlUp).Row + 1
        Sheets("sheet1").Range("A1:O5").Copy Sheets("Sheet2").Range("B" & LR)
        k = 1
       For i = 2 To LR Step 5
             Range("A" & i) = k
       k = k + 1
       Next
End Sub

Em cảm ơn chị, đúng rồi chị à.
Bây giờ chị sửa giúp em là cứ mỗi lần copy thì nó lại được xếp ở trên cùng với nhé

 

[be_09]

Lúc nào cũng có 5 dòng bác à
..................
Bây giờ chị sửa giúp em là cứ mỗi lần copy thì nó lại được xếp ở trên cùng với nhé

Với yêu cầu này thì tất cả các bài viết nêu trên đều bị phá sản, kết quả phải như hình không?

 

[hongphuong1997]

Với yêu cầu này thì tất cả các bài viết nêu trên đều bị phá sản, kết quả phải như hình không?

View attachment 201505

Bác ơi, không có tiêu đề như của bác bác à,

 

[be_09]

Bác ơi, không có tiêu đề như của bác bác à,

Thử File này coi.

 

[hongphuong1997]

Thử File này coi.

hi hi.... hay quá bác ơi
Bác làm rất dễ hiểu và đúng lắm bác à
Cháu cảm ơn bác nhé
Cháu chúc bác mạnh khỏe.

 

[phulien1902]

Em đã đính chính lại rùi mà,
Tức là copy từ A1:O5 sang sheet2 cứ mỗi lần copy thì dán xuống dòng cuối của lần trước.
Em gửi lại file anh xem giúp nhé.

Thử:

Sub abc2()
    Dim LR&, i&, k
    LR = Sheets("Sheet2").Range("B65000").End(xlUp).Row + 1
    Rows("1:5").Insert Shift:=xlDown
    Sheets("sheet1").Range("A1:O5").Copy Sheets("Sheet2").Range("B2")
    k = 1
    For i = LR To 1 Step -5
        Range("A" & i) = k
        k = k + 1
    Next
    Application.CutCopyMode = False
End Sub

 

[hongphuong1997]

Thử:

Sub abc2()
    Dim LR&, i&, k
    LR = Sheets("Sheet2").Range("B65000").End(xlUp).Row + 1
    Rows("1:5").Insert Shift:=xlDown
    Sheets("sheet1").Range("A1:O5").Copy Sheets("Sheet2").Range("B2")
    k = 1
    For i = LR To 1 Step -5
        Range("A" & i) = k
        k = k + 1
    Next
    Application.CutCopyMode = False
End Sub

Em cảm ơn chị nhé.
Chúc chị một ngày nhiều điều vui.

 

[phulien1902]

Em cảm ơn chị nhé.
Chúc chị một ngày nhiều điều vui.

Xin cảm ơn bạn, nhưng mà tôi là đàn ông đó.
Chúc bạn 1 ngày làm việc vui vẻ và hiệu quả.

 

[Hau151978]

Xin cảm ơn bạn, nhưng mà tôi là đàn ông đó.
Chúc bạn 1 ngày làm việc vui vẻ và hiệu quả.

Vui nhất là được em gái phẫu thuật chuyển giới.

 

[truongvu317]

Với yêu cầu này thì tất cả các bài viết nêu trên đều bị phá sản, kết quả phải như hình không?

View attachment 201505

Anh cứ yên tâm là chiều nay sẽ có yêu cầu mới, ví dụ như không cố đinnhj 5 dòng nữa.

 

[hongphuong1997]

Anh cứ yên tâm là chiều nay sẽ có yêu cầu mới, ví dụ như không cố đinnhj 5 dòng nữa.

Cái anh @truongvu317 này cứ hay trêu em
Vậy thì anh viết cho em như này nhé
Cứ sheet1 có dữ liệu nào các dòng thì sắp xếp thứ tự như trên anh nhé.

 

[truongvu317]

Cái anh @truongvu317 này cứ hay trêu em

Dễ mà, cứ for, if, then mà phang là ra hết!
"Ngày xưa, lúc chưa quen em, anh nào có bận.
Từ ngày gặp nhau thấy sao trong lòng vấn vương. "

 

[hongphuong1997]

Dễ mà, cứ for, if, then mà phang là ra hết!
"Ngày xưa, lúc chưa quen em, anh nào có bận.
Từ ngày gặp nhau thấy sao trong lòng vấn vương. "

Hi hi hi... anh là dân văn chương thì sao mà phang được?
Anh phang đi
nghe nói thì dễ quá ta.
Anh phang đi

 

[truongvu317]

Hi hi hi... anh là dân văn chương thì sao mà phang được?
Anh phang đi
nghe nói thì dễ quá ta.
Anh phang đi

Gì vậy, lại có người gạ mình phang. Tui chỉ có tình ý với NTLH thui nhá. Gửi file kèm yêu cầu lên sẽ có sói ca giúp. Nhưng chắc vẫn dùng for if then thui

 

[VetMini]

For thì dễ văn chương rồi. Nhưng If - Then mà vào văn chương thì nó như cái hũ mắm.
(For là một liên tự thuộc về tình thể, nói dễ dàng. If-Then thuộc về lô gic, nó cứng như que củi)

For you are a good girl, you will always find yourself taking up a soft spot in his heart. (văn chương, phải không)
If you "phang", then you are rude. (nghe như đánh r..)

 

[hongphuong1997]

For thì dễ văn chương rồi. Nhưng If - Then mà vào văn chương thì nó như cái hũ mắm.
(For là một liên tự thuộc về tình thể, nói dễ dàng. If-Then thuộc về lô gic, nó cứng như que củi)

For you are a good girl, you will always find yourself taking up a soft spot in his heart. (văn chương, phải không)
If you "phang", then you are rude. (nghe như đánh r..)

Hi hi... bác nói chí phải bác ui, anh ấy toàn nói suông thôi, có biết làm gì đâu.

 

[truongvu317]

Hi hi... bác nói chí phải bác ui, anh ấy toàn nói suông thôi, có biết làm gì đâu.

Ngay từ đầu tui đã bảo không rành vba mà, sao cứ gạ tui phang là thế nào, chờ người khác đi nhóe.
Em ơi lau lệ buồn.
Còn chinh chiến anh còn đi
Đừng giận hờn anh em nhé.


Mà bảo là gửi file mà có thấy gì đâu.