Các anh chị giúp em viết một macro insert dòng tự động với, cứ cách một dòng thì isert 1 dòng. Em cũng viết một cái rồi nhưng dùng vòng for chậm quá. Các anh xem có cấch nào nhanh giúp em với:
dây là macro em ghi lại và dã chỉnh:
Sub Macro3()
Dim i As Integer
i = [B2].Column
j = [B3].End(xlDown).Row
For r = 3 To j
ActiveCell.Offset(1, 0).Rows("2:2").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
end sub
dây là macro em ghi lại và dã chỉnh:
Sub Macro3()
Dim i As Integer
i = [B2].Column
j = [B3].End(xlDown).Row
For r = 3 To j
ActiveCell.Offset(1, 0).Rows("2:2").EntireRow.Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Next
end sub