Tự thêm dòng cuối mỗi dãy trùng nhau (1 người xem)

[hoang.tn144]

Giúp em với ạ!
Em có các dãy ký tự trùng, làm cách nào để tự động thêm 3 dòng vào cuối mỗi dãy?
Có file mẫu đính kèm.

 

[phulien1902]

Giúp em với ạ!
Em có các dãy ký tự trùng, làm cách nào để tự động thêm 3 dòng vào cuối mỗi dãy?
Có file mẫu đính kèm.

Tham khảo Code:

Option Explicit
Sub abc()
    Dim i As Long
    Dim LR As Long
    LR = Cells(Rows.Count, "B").End(xlUp).Row
    With Cells(LR+1, "B")
        .Value = "STOP"
    End With
    For i = LR To 7 Step -1
        If Range("B" & i) <> Range("B" & i + 1) Then
            Range("B" & i + 1).Resize(3).EntireRow.Insert
        End If
    Next i
    With Range("B7:B" & Range("B" & Rows.Count).End(xlUp).Row)
        .SpecialCells(4).FormulaR1C1 = "=R[-1]C"
        .Value = .Value
    End With
End Sub

 

[khuongvietphong]

Giúp em với ạ!
Em có các dãy ký tự trùng, làm cách nào để tự động thêm 3 dòng vào cuối mỗi dãy?
Có file mẫu đính kèm.

H7 =

=IF(H6="",OFFSET($B$6,1,0),IF(COUNTIF($H$6:H6,H6)=COUNTIF($B$7:$B$16,H6)+3,OFFSET($B$6,MATCH(H6,$B$7:$B$16,0)+COUNTIF($B$7:$B$16,H6),0),H6))

Sau đó kéo xuống