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

 

[befaint]

Phai phai phai đâu?

Bạn ni có cách hành văn giống với @Nguyễn Hoàng Oanh Thơ
... tìm các bài viết của bạn ấy để tham khảo cách nêu câu hỏi.

 

[Loan Châu]

em cám ơn anh Befain nhiều trước ! chị Oanh Thơ bữa nay lên level gê luôn anh hí
anh ơi em đính kèm lại file lên trên rồi anh à. anh xem giúp cho em với anh nhé !

 

[dazkangel]

em cám ơn anh Befain nhiều trước ! chị Oanh Thơ bữa nay lên level gê luôn anh hí
anh ơi em đính kèm lại file lên trên rồi anh à. anh xem giúp cho em với anh nhé !

Bạn nên có thói quen gõ trả lời người muốn hỏi, thứ 1 người được hỏi sẽ biết (có thông báo) mà trả lời.
Thứ 2 không khiếm nhã nếu chen ngang trả lời người khác.
Đôi lời, thân.

 

[befaint]

em cám ơn anh Befain nhiều trước ! chị Oanh Thơ bữa nay lên level gê luôn anh hí
anh ơi em đính kèm lại file lên trên rồi anh à. anh xem giúp cho em với anh nhé !

 

[Loan Châu]

Bạn nên có thói quen gõ trả lời người muốn hỏi, thứ 1 người được hỏi sẽ biết (có thông báo) mà trả lời.
Thứ 2 không khiếm nhã nếu chen ngang trả lời người khác.
Đôi lời, thân.

dạ, em sơ ý qúa. em cảm ơn anh nhìu nhìu!

 

[Loan Châu]

anh Befaint ơi, code chạy quá tuyệt vời. quá đúng ý em luôn anh à. em cảm ơn anh rất nhiều luôn í.

 

[Hoang2013]

Bạn chạy macro này trên trang số liệu

Sub ChenDongConThieu()
 Dim Min_ As Integer, Max_ As Long, J As Long
 Dim Rng As Range, sRng As Range
 Dim Tmp As String
 
 Columns("A:A").Insert Shift:=xlToRight
 Min_ = CInt(Mid([B1].Value, 3, 3))     'Giá Tri Nho Nhát'
 Set sRng = [B1].End(xlDown)
 Max_ = CLng(Mid(sRng.Value, 3, 3))     'Giá Tri Lón Nhát'
 sRng.Offset(, -1).Value = "GPE.COM"    'Xác Dinh Ô Chuan De Ghi Các Tri Thiéu'
 Set Rng = Range([B1], sRng)
 For J = Min_ To Max_                   'Vòng Lap Duyet Các Só'
    If J < 10 Then
        Tmp = "EP" & Right("0" & CStr(J), 2)
    Else
        Tmp = "EP" & CStr(J)
    End If
    Set sRng = Rng.Find(Tmp, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [a65500].End(xlUp).Offset(1).Value = Tmp
    Else
        sRng.Offset(, -1).Value = Tmp
    End If
 Next J
End Sub

Tiếp sau đó bạn thử tiến hành 2 bước thu macro như sau:
[1] Sắp xếp các cột số liệu theo cột [A:A]
[2] Xóa cột [A:a] đi:

Sub RecordMacroXoaCotA()
    Columns("A:A").Delete Shift:=xlToLeft
End Sub

Chúc thành công mĩ mãn!

 

[Gà Công Nghệ]

em cám ơn anh Befain nhiều trước ! chị Oanh Thơ bữa nay lên level gê luôn anh hí
anh ơi em đính kèm lại file lên trên rồi anh à. anh xem giúp cho em với anh nhé !

Bạn cho mình hỏi "level gê" là như thế nào vậy? Thân chào bạn!

 

[Loan Châu]

Bạn chạy macro này trên trang số liệu

Sub ChenDongConThieu()
 Dim Min_ As Integer, Max_ As Long, J As Long
 Dim Rng As Range, sRng As Range
 Dim Tmp As String
 
 Columns("A:A").Insert Shift:=xlToRight
 Min_ = CInt(Mid([B1].Value, 3, 3))     'Giá Tri Nho Nhát'
 Set sRng = [B1].End(xlDown)
 Max_ = CLng(Mid(sRng.Value, 3, 3))     'Giá Tri Lón Nhát'
 sRng.Offset(, -1).Value = "GPE.COM"    'Xác Dinh Ô Chuan De Ghi Các Tri Thiéu'
 Set Rng = Range([B1], sRng)
 For J = Min_ To Max_                   'Vòng Lap Duyet Các Só'
    If J < 10 Then
        Tmp = "EP" & Right("0" & CStr(J), 2)
    Else
        Tmp = "EP" & CStr(J)
    End If
    Set sRng = Rng.Find(Tmp, , xlFormulas, xlWhole)
    If sRng Is Nothing Then
        [a65500].End(xlUp).Offset(1).Value = Tmp
    Else
        sRng.Offset(, -1).Value = Tmp
    End If
 Next J
End Sub

Tiếp sau đó bạn thử tiến hành 2 bước thu macro như sau:
[1] Sắp xếp các cột số liệu theo cột [A:A]
[2] Xóa cột [A:a] đi:

Sub RecordMacroXoaCotA()
    Columns("A:A").Delete Shift:=xlToLeft
End Sub

Chúc thành công mĩ mãn!

em cảm anh nhiều lắm, để em thử code của anh rồi có gì không hiểu em lại nhờ anh, anh nhé!

 

[Loan Châu]

Bạn cho mình hỏi "level gê" là như thế nào vậy? Thân chào bạn!

chào bạn songhovl201 !
Ý emlà khen chị Oanh Thơ nhanh giỏi í mà. hihi

 

[Gà Công Nghệ]

chào bạn songhovl201 !
Ý emlà khen chị Oanh Thơ nhanh giỏi í mà. hihi

À, ra vậy. Tại tiếng Anh mình không có rành, còn tiếng Việt có thêm từ "gê" dùng để khen.

 

[Loan Châu]

À, ra vậy. Tại tiếng Anh mình không có rành, còn tiếng Việt có thêm từ "gê" dùng để khen.

tại mình ở Huế nên hay dung từ "gê" và "gớm" nói quen thôi. Chứ mình mình không có ý gì khác , mình sẽ lưu ý lại. Bạn songhovl201 thông cảm bạn nhé!

 

[VetMini]

Người miệt dưới như tôi thì gặp từ "gê" sẽ đọc là "rê" hoặc "dê".

 

[Gà Công Nghệ]

tại mình ở Huế nên hay dung từ "gê" và "gớm" nói quen thôi. Chứ mình mình không có ý gì khác , mình sẽ lưu ý lại. Bạn songhovl201 thông cảm bạn nhé!

À, không có gì đâu bạn. Tại từ "level" mình thấy mấy bạn chơi game hay nói từ đó. Tiếng Việt mình phong phú, văn nói và viết khác nhau chẳng hạn "Cảm ơn" (văn nói), "Cám ơn" (văn viết). Từ "Gê" và "Gớm" chữ cái đầu của từ đầu tiên " " thì nên viết hoa, mình viết nhanh cho bạn bè không có gì, nội quy diễn đàn khuyến khích nên viết rõ nghĩa tiếng Việt, hạn chế viết tắt thì bài viết sẽ sớm có trả lời nhanh hơn. Chúc bạn ngày vui. Hi, thân chào bạn!

 

[cdtam]

tại mình ở Huế nên hay dung từ "gê" và "gớm" nói quen thôi. Chứ mình mình không có ý gì khác , mình sẽ lưu ý lại. Bạn songhovl201 thông cảm bạn nhé!

Mình nghe con gái của mình(lớp 1)bảo rằng:Cô giáo dạy chữ "gờ" có 2 chữ "gờ đơn"(g) và "gờ ghép"(gh),chữ mà đi với các nguyên âm "i,e,ê" thì dùng "gờ ghép".Còn các nguyên âm khác thì dùng "gờ đơn".Ví dụ như:Ghi nhớ, ghé qua ,ghe bầu, ghế gỗ,gồ ghề,gập ghềnh.
Hổng biết có phải vậy hông ta!?

 

[Loan Châu]

Người miệt dưới như tôi thì gặp từ "gê" sẽ đọc là "rê" hoặc "dê".[/QUOTE
dạ anh VetMini, em biết sai sai rồi.

 

[Loan Châu]

Mình nghe con gái của mình(lớp 1)bảo rằng:Cô giáo dạy chữ "gờ" có 2 chữ "gờ đơn"(g) và "gờ ghép"(gh),chữ mà đi với các nguyên âm "i,e,ê" thì dùng "gờ ghép".Còn các nguyên âm khác thì dùng "gờ đơn".Ví dụ như:Ghi nhớ, ghé qua ,ghe bầu, ghế gỗ,gồ ghề,gập ghềnh.
Hổng biết có phải vậy hông ta!?

đúng rồi bạn ơi, mình cảm ơn bạn !

 

[Loan Châu]

À, không có gì đâu bạn. Tại từ "level" mình thấy mấy bạn chơi game hay nói từ đó. Tiếng Việt mình phong phú, văn nói và viết khác nhau chẳng hạn "Cảm ơn" (văn nói), "Cám ơn" (văn viết). Từ "Gê" và "Gớm" chữ cái đầu của từ đầu tiên " " thì nên viết hoa, mình viết nhanh cho bạn bè không có gì, nội quy diễn đàn khuyến khích nên viết rõ nghĩa tiếng Việt, hạn chế viết tắt thì bài viết sẽ sớm có trả lời nhanh hơn. Chúc bạn ngày vui. Hi, thân chào bạn!

Lần nữa Châu cảm ơn bạn songhovl201 ! Châu cũng chúc bạn ngày mới nhìu nhìu niềm vui, bạn nhé!

 

[Loan Châu]

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é!