Có thể có lúc bạn đang làm việc với một bảng và bạn muốn chèn một hàng trống vào giữa mỗi hàng hiện có trong bảng. Có một số cách dễ dàng để làm điều này. Nếu bạn không muốn sử dụng macro, bạn có thể làm theo các bước sau:

  1. Chèn một cột trống vào bất kỳ đâu trong danh sách hoặc bảng.

  2. Đặt giá trị 1 vào ô bảng đầu tiên của cột mới và giá trị 2 vào ô thứ hai.

  3. Chọn hai ô đã nhập ở bước 2 và sử dụng điều khiển Điền để kéo xuống ô cuối cùng trong bảng. Bây giờ bạn sẽ có một cột chứa các số liên tiếp, từ 1 đến tuy nhiên có nhiều hàng trong bảng. Các ô đã điền này vẫn nên được chọn.

  4. Nhấn Ctrl + C. Thao tác này sao chép các ô vào Clipboard.

  5. Trong cột mới, ngay bên dưới ô cuối cùng, hãy dán các ô đã sao chép.

Bây giờ bạn sẽ có một dải ô khác bên dưới bảng được điền cùng các số liên tiếp bạn đã tạo ở bước 3.

  1. Chọn bất kỳ ô nào trong bảng gốc.

  2. Hiển thị tab Dữ liệu của dải băng.

  3. Bấm Sắp xếp trong nhóm Sắp xếp & Bộ lọc. Excel chọn bảng, bao gồm các hàng được thêm trong bước 5 và hiển thị hộp thoại Sắp xếp.

(Xem Hình 1.)

  1. Chỉ định rằng bạn muốn sắp xếp theo thứ tự tăng dần theo cột mới chứa các số của bạn.

  2. Nhấp vào OK. Bàn là khu nghỉ mát.

  3. Xóa cột bạn đã thêm ở bước 1.

Các bước trên hoạt động do cách thức sắp xếp của Excel.

Nếu vì lý do nào đó, bạn kết thúc với hai hàng trống cạnh nhau (nói cách khác, việc sắp xếp không hoạt động chính xác như bình thường), thì bạn có thể sửa đổi quy trình một chút. Ở bước 2, nhập số 1 và số 3 vào hai ô trên cùng. Điều này dẫn đến các số lẻ được điền vào cột mới. Thay vì thực hiện bước 4 và 5, bạn chỉ cần điền vào một vùng tương tự với các ô chẵn (chỉ cần điền vào ô đầu tiên với 2 và ô thứ hai với 4). Sau đó, khi bạn sắp xếp theo các bước từ 6 đến 10, bảng kết quả có các hàng được xen kẽ theo thứ tự thích hợp.

Nếu bạn không thích sử dụng macro, việc chèn các hàng trống thậm chí còn dễ dàng hơn. Chỉ cần chọn các hàng bạn muốn ảnh hưởng, sau đó thực thi macro này:

Sub AddBlankRows1()

Dim J As Integer     Dim MySelection As Range

If TypeName(Selection) <> "Range" Then Exit Sub     Set MySelection = Selection     Application.ScreenUpdating = False     For J = MySelection.Rows.Count To 1 Step –1         MySelection.Rows(J).EntireRow.Insert     Next J     Application.ScreenUpdating = True End Sub

Một biến thể ngắn hơn một chút trên cùng một macro là:

Sub AddBlankRows2()

FR = Selection.Rows.Row     LR = Selection.Rows.Count + FR - 1     For R = LR To FR + 1 Step -1         Rows(R).Insert     Next End Sub

Tất nhiên, bạn nên nhớ rằng nếu mục đích duy nhất của bạn khi thêm hàng là để “xóa” thông tin của bạn, bạn có thể đạt được điều tương tự bằng cách chỉ cần tăng chiều cao của mỗi hàng trong bảng. Về mặt vật lý, bạn chỉ nên thêm các hàng trống nếu bạn cần các hàng đó để chèn thêm thông tin vào bảng dữ liệu của mình.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (9667) áp dụng cho Microsoft Excel 2007, 2010, 2013, 2016, 2019 và Excel trong Office 365. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: