Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để chèn hoặc xóa một phần hàng trong Excel?

Dễ dàng chèn hoặc xóa toàn bộ hàng khỏi trang tính trong Excel. Nhưng làm thế nào để chèn hoặc xóa chỉ một phần hàng khỏi trang tính? Bài viết này sẽ giúp bạn.

Chèn hoặc xóa một phần hàng với chức năng Chèn / Xóa ô
Chèn hoặc xóa một phần hàng bằng mã VBA


Chèn hoặc xóa một phần hàng với chức năng Chèn / Xóa ô

Ví dụ bạn muốn chèn hoặc xóa một phần hàng trong hàng 5 với ba ô, vui lòng thực hiện như sau.

Chèn một phần hàng

1. Chọn ba ô trong hàng 5 (các ô được chọn phải bằng các ô được chèn), sau đó nhấp vào Chèn > Chèn ô Dưới Trang chủ chuyển hướng. Xem ảnh chụp màn hình:

2. bên trong Chèn hộp thoại, chọn Chuyển ô sang phải or Chuyển ô xuống dưới tùy chọn và sau đó nhấp vào OK .

Sau đó, một phần hàng có ba ô được chèn như hình minh họa bên dưới.

Xóa một phần hàng

1. Sau khi chọn một phần hàng bạn muốn xóa, hãy nhấp vào Xóa> Xóa ô Dưới Trang chủ tab.

2. bên trong Xóa bỏ hộp thoại, chọn Dời các ô qua trái or Chuyển ô lên trên khi bạn cần, sau đó nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Sau đó, hàng một phần đã chọn sẽ bị xóa.


Chèn hoặc xóa một phần hàng bằng mã VBA

Bạn cũng có thể áp dụng các mã VBA sau để chèn hoặc xóa một phần hàng trong Excel.

1. Chọn bất kỳ ô nào trong một hàng nhất định mà bạn muốn chèn từng hàng, sau đó nhấn Khác + F11 để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Và sau đó sao chép và dán mã VBA bên dưới vào cửa sổ.

Mã VBA: Chèn một phần hàng trong Excel

Sub InsertRow()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub

Chú thích: Trong mã VBA, số 1 có nghĩa là hàng một phần sẽ được chèn từ cột đầu tiên và số 3 có nghĩa là nó sẽ chèn ba ô giữa các cột. Bạn có thể thay đổi chúng dựa trên nhu cầu của bạn.

3. Nhấn nút F5 phím để chạy mã, sau đó Kutools cho Excel hộp thoại bật lên, vui lòng nhập số hàng bắt buộc bạn cần, sau đó nhấp vào OK .

Nếu bạn nhập 3 vào hộp, sau khi nhấp vào OK , ba hàng từng phần với ba cột sẽ được chèn vào vị trí cụ thể của trang tính của bạn.

Để xóa một phần hàng, bạn có thể chạy mã VBA bên dưới.

Mã VBA: Xóa một phần hàng trong Excel

Sub DelActiveCell_Row()
    Dim I As Long
    On Error Resume Next
LInput:
    I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
    If I < 1 Then
        MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub

Sau khi chạy mã, cũng có một Kutools cho Excel hộp thoại bật lên để nhắc bạn có bao nhiêu hàng từng phần bạn muốn xóa, vui lòng nhập số và nhấp vào OK cái nút. Sau đó, các hàng từng phần được chỉ định sẽ bị xóa ngay lập tức.


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (0)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL