Hoạt động :
Đánh dấu các dòng cần chèn -> ấn Start -> chương trình tự động chèn dòng dưới dòng hiện tại số lượng dòng thêm bằng tổng dòng của vùng chọn.
Xem Video thao tác:
Xem full màn hình: Tại đây
Link tải file mẫu: Tại đây
Code :
‘This code will insert a row after every row in the selection
Sub InsertAlternateRows()
Dim rng As Range
Dim CountRow As Integer
Dim i As Integer
Set rng = Selection
CountRow = rng.EntireRow.Count
For i = 1 To CountRow
ActiveCell.Offset(1, 0).Select
ActiveCell.EntireRow.Insert
Next i
End Sub
Ý nghĩa : “rng” là vùng chọn , “CountRow” là số dòng chọn, “ActiveCell.EntireRow.Insert” là lệnh Insert dòng.
DienDan.Edu.Vn Cám ơn bạn đã quan tâm và rất vui vì bài viết đã đem lại thông tin hữu ích cho bạn.DienDan.Edu.Vn! là một website với tiêu chí chia sẻ thông tin,... Bạn có thể nhận xét, bổ sung hay yêu cầu hướng dẫn liên quan đến bài viết. Vậy nên đề nghị các bạn cũng không quảng cáo trong comment này ngoại trừ trong chính phần tên của bạn.Cám ơn.
