Chèn dòng theo thứ tự ! (1 người xem)

[Loan Châu]

Kính chào quý anh chị !
Hiện em có 1 khó khan mong các anh chị giỏi về VBA giúp cho em với chứ em ngồi nhập tay lâu lâu quá, khó khăn của em là:
em có vài nghìn đơn hang . em Ví dụ từ EP01, EP02,...............EP, 1000. Nhưng số thứ tự này nó không liên tục. Ví dụ: EP01,EP02,EP05,EP06,EP10,............ giờ em phải ngồi do từng cái rồi chèn dòng trống vào rất lâu các anh chị à.
Anh chị ơi , có cách nào mình chèn dòng tự động không? em gởi theo kèm file
Mong quý anh chị giúp cho em với!
em xin trân trọng cám ơn quý anh chị trước !
Trân trọng!
em gái Loan Châu

 

[chisinhvnn]

anh Befaint ơi, code file đó thì quá tuyệt vời. nhưng khi em dùng cho file khác mà em thay đổi tên của cột A từ EP01 thành TH01 (BW) là nó không chạy được anh à. a hướng dẫn cho em cách sửa code với anh nhé!

Vậy tốt nhất bạnj nên gửi file thật và lập số liệu giả định afh. trong code có ghi rõ đấy "Set Rng = Sheet1.Range("A1125") ''Chú ý dòng này thay dôi cho phù hop"

 

[chisinhvnn]

Nhờ anh befaint giải thích dòng code này có ý nghĩa gì vậy

 Const sInvoice As String = "EP"[code]

 

[befaint]

đổi tên của cột A từ EP01 thành TH01 (BW)

Bạn để ý dòng trên cùng, thay "EP" thành "TH". Tương tự các trường hợp khác.

 

[Loan Châu]

Bạn để ý dòng trên cùng, thay "EP" thành "TH". Tương tự các trường hợp khác.

em cảm ơn anh Befaint nhìu nhìu anh nhé! code của anh rất tuyệt đã giải quyết được khó khan của em rồi.