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. Chọn Sắp xếp từ menu Dữ liệu. 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.)

  3. 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.

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

  5. 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. Trong 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 9, bảng kết quả có các hàng xen kẽ theo thứ tự thích hợp.

Nếu bạn không muốn 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 AddBlankRows()

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

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 (3011) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: