Code insert dòng sau mỗi dòng có dữ liệu (1 người xem)

[phuoclocvl]

Chào các A/C/E GPE
xem giup em code insert dòng như vậy có đúng không. có sai cú pháp gì không. Chỉnh giúp em.
em muốn insert thêm 1 dòng vào sau mỗi dòng có dữ liệu. em viết như vầy:

Public Sub isert()
Dim i As Long
For i = 1 To 65000
If Range("A" & i).Value <> "" Then
Range("A" & i + 1).Select
Selection.EntireRow.Insert
End If
Next i
End Sub

 

[Hai Lúa Miền Tây]

Chào các A/C/E GPE
xem giup em code insert dòng như vậy có đúng không. có sai cú pháp gì không. Chỉnh giúp em.
em muốn insert thêm 1 dòng vào sau mỗi dòng có dữ liệu. em viết như vầy:

Public Sub isert()
Dim i As Long
For i = 1 To 65000
If Range("A" & i).Value <> "" Then
Range("A" & i + 1).Select
Selection.EntireRow.Insert
End If
Next i
End Sub

Thì bạn test thử nhé, để chèn dòng xen kẻ thì không cần dùng code cũng làm được vậy bạn.