tạo dòng xen kẽ trong excel bằng macro

[linhuytung]

Sub InsertRow()
Dim i As Integer
Dim counter As Integer
counter = 500
'----------doan ma~ nay de them dong tu dong---------------------------
For i = 3 To counter Step 2
Rows(i).Select
Selection.Insert Shift:=xlDown
Next i
End Sub