Có anh nào biết giúp em với, đang cần gấp quá.
Option Explicit
Sub Them3Dong()
Dim Rws&, J&
Rws = [A2].End(xlDown).Row
For J = Rws To 3 Step -1
Cells(J, "A").Resize(3).EntireRow.Insert
Next J
End Sub
Công nhận chiêu này hay, muốn chèn 2 dòng phía dưới thì copy paste 3 lần, ....cứ thế............