Hướng dẫn cách chèn dòng trống xen kẽ vào Excel
Nếu bạn đang có nhu cầu chèn những dòng trống xen kẽ vào các dòng trong excel thì có thể tham khảo các cách hữu ích dưới đây.
1. Dùng chức năng Sort
Trước tiên các bạn sẽ thêm vào cuối các số thứ tự từ 1 tới cuối, và lặp lại 1 lần ở những dòng chưa có dữ liệu(điền 1 sau đó nhấn giữ Ctrl + rê chuột góc phải và kéo để nhanh hơn)
Xem thêm: Cách đánh số thứ tự trong excel nhanh nhất 2003 2007 2010 2013
Sau đó chọn tính năng sắp xếp theo cột các bạn vừa tạo
Chọn dòng F và thứ tự từ nhỏ tới lớn nhất và chọn OK
Khi đó các dòng trống tự động được chèn vào theo thứ tự cũ không bị đảo lộn
2. Dùng VBA
Dùng đoạn code VBA sau
Sau đó chọn khoảng bạn muốn thêm dòng trống và chọn OK
Kết quả sẽ như sau, từ
Thành
Nếu bạn đang có nhu cầu chèn những dòng trống xen kẽ vào các dòng trong excel thì có thể tham khảo các cách hữu ích dưới đây.
1. Dùng chức năng Sort
Trước tiên các bạn sẽ thêm vào cuối các số thứ tự từ 1 tới cuối, và lặp lại 1 lần ở những dòng chưa có dữ liệu(điền 1 sau đó nhấn giữ Ctrl + rê chuột góc phải và kéo để nhanh hơn)
Xem thêm: Cách đánh số thứ tự trong excel nhanh nhất 2003 2007 2010 2013
Sau đó chọn tính năng sắp xếp theo cột các bạn vừa tạo
Chọn dòng F và thứ tự từ nhỏ tới lớn nhất và chọn OK
Khi đó các dòng trống tự động được chèn vào theo thứ tự cũ không bị đảo lộn
2. Dùng VBA
Dùng đoạn code VBA sau
Mã:
Sub InsertBlackRows()
'Updateby20131127
Dim Rng As Range
Dim WorkRng As Range
Dim FirstRow As Integer, xRows As Integer, xCols As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
FirstRow = WorkRng.Row
xRows = WorkRng.Rows.Count
xCols = WorkRng.Columns.Count
Application.ScreenUpdating = False
WorkRng.Cells(xRows, 1).Resize(1, xCols).Select
Do Until Selection.Row = FirstRow
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Selection.Offset(-1, 0).Select
Loop
Application.ScreenUpdating = True
End SubSau đó chọn khoảng bạn muốn thêm dòng trống và chọn OK
Kết quả sẽ như sau, từ
Thành
