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 Mã 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ông cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
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!