Cần giúp đỡ tự động thêm dòng (Và tô màu vàng cho dòng thêm đó) dựa trên ký tự của ô (1 người xem)

[hung2412]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu vàng cho dòng thêm đó) cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số) (Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).
Ví dụ: Từ dòng 7 đến dòng 19 có ký tự đầu giống nhau ở cột B là "CT", từ dòng 20 đến dòng 31 có ký tự đầu giống nhau ở cột B là "HƯ", từ dòng 32 đến dòng 41 có ký tự đầu giống nhau ở cột B là "KC", từ dòng 42 đến dòng 51 có ký tự đầu giống nhau ở cột B là "OPN" => Thêm dòng (Và tô màu vàng) giữa dòng 19 và dòng 20, thêm dòng (Và tô màu vàng) giữa dòng 31 và dòng 32,...
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm. Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số

 

[vu_tuan_manh_linh]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu vàng cho dòng thêm đó) cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số) (Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).
Ví dụ: Từ dòng 7 đến dòng 19 có ký tự đầu giống nhau ở cột B là "CT", từ dòng 20 đến dòng 31 có ký tự đầu giống nhau ở cột B là "HƯ", từ dòng 32 đến dòng 41 có ký tự đầu giống nhau ở cột B là "KC", từ dòng 42 đến dòng 51 có ký tự đầu giống nhau ở cột B là "OPN" => Thêm dòng (Và tô màu vàng) giữa dòng 19 và dòng 20, thêm dòng (Và tô màu vàng) giữa dòng 31 và dòng 32,...
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm. Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số

Có phải bạn muốn như thế này không? Tuy nhiên muốn hỏi kỹ hơn một chút là mục đích của bạn chèn thêm dòng để làm gì, vì có thể có cách khác.

 

[hung2412]

Đã hiểu ý bạn, tuy nhiên muốn hỏi kỹ hơn một chút là mục đích của bạn chèn thêm dòng để làm gì, vì có thể có cách khác.

Mình bàn giao chứng từ cho người khác, phân cách các nhóm chứng từ bằng cách chèn thêm dòng cho dễ nhìn và khoa học đó mà. Như bạn làm trên file đó thì OK nhưng mình muốn chỉ là dòng trống và có màu vàng thôi ah.

 

[gtri]

Chào Quý vị và các bạn GPE!
Nhờ Quý vị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Tự động thêm dòng đầu tiên (Và tô màu vàng cho dòng thêm đó) cho nhóm ký tự giống nhau của các ô ở cột B (Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số) (Kiểu như là thêm dòng tiêu đề cho các nhóm ký tự giống nhau).
Ví dụ: Từ dòng 7 đến dòng 19 có ký tự đầu giống nhau ở cột B là "CT", từ dòng 20 đến dòng 31 có ký tự đầu giống nhau ở cột B là "HƯ", từ dòng 32 đến dòng 41 có ký tự đầu giống nhau ở cột B là "KC", từ dòng 42 đến dòng 51 có ký tự đầu giống nhau ở cột B là "OPN" => Thêm dòng (Và tô màu vàng) giữa dòng 19 và dòng 20, thêm dòng (Và tô màu vàng) giữa dòng 31 và dòng 32,...
Mong Quý vị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có file đính kèm. Các ký tự đầu giống nhau có thể từ 2 => 4 ký tự và không bao gồm ký tự là số

Chạy thử code này xem sao

Public Sub ChenDong()
Dim DL, d As Long
Set DL = Sheet1.Range("A6", Sheet1.Range("G65000").End(xlUp))

Application.ScreenUpdating = False
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "[a-z]+"
For d = DL.Rows.Count To 2 Step -1
If DL(d, 2) <> "" And DL(d - 1, 2) <> "" Then
If .Execute(DL(d, 2))(0) <> .Execute(DL(d - 1, 2))(0) Then
DL.Rows(d).Insert
DL.Rows(d).Interior.ColorIndex = 36 'Tô màu dòng mới
End If
End If
Next d
End With
Application.ScreenUpdating = True

End Sub

----------------
Làm xong mới nhớ vụ tô màu, bổ sung sau vậy.
----------------
Đã bổ sung tô màu

 

[hung2412]

Chạy thử code này xem sao

Public Sub ChenDong()
Dim DL, d As Long
Set DL = Sheet1.Range("A6", Sheet1.Range("G65000").End(xlUp))

Application.ScreenUpdating = False
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "[a-z]+"
For d = DL.Rows.Count To 2 Step -1
If DL(d, 2) <> "" And DL(d - 1, 2) <> "" Then
If .Execute(DL(d, 2))(0) <> .Execute(DL(d - 1, 2))(0) Then
DL.Rows(d).Insert
DL.Rows(d).Interior.ColorIndex = 36 'Tô màu dòng mới
End If
End If
Next d
End With
Application.ScreenUpdating = True

End Sub

----------------
Làm xong mới nhớ vụ tô màu, bổ sung sau vậy.
----------------
Đã bổ sung tô màu

Chuẩn không cần chỉnh, cảm ơn bạn nhiều.

 

[ChanhTQ@]

Mình đang tập tành với Dictionary;

Bạn tham khảo thêm

Sửa bài vietL Các bạn đến đây: http://www.giaiphapexcel.com/forum/...ng-cột-trùng-nhau-(Và-giữ-lại-1-dòng-duy-nhất) bài 2 để xem file