Tự thêm dòng cuối mỗi dãy trùng nhau

[baobinh]

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.

View more random threads:

• Tại sao hàm match nhưng kết quả không liên tục
• Lọc với nhiều điều kiện
• Cách sử dụng kết hợp hàm if, isna và vlookup để tra dữ liệu ở các sheet khác nhau
• Làm thế nào để đếm các số trong một cột
• Hướng dẫn Group and outline trong menu data
• Tính chiết khấu cho các mặt hàng dùng hàm gì phù hợp.
• Khắc phục lỗi nhập và xử lý số trong VBA
• Kiểm tra một số có thuộc một dãy số ngẫu nhiên hay không
• Cần giúp đỡ Tính tổng với điều kiện là 1 chuỗi ký tự
• Phân tích doanh thu (revenue) và luồng tiền (cash flow)

[ducquan1008]

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 ExplicitSub 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 WithEnd Sub  

[myn271]

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