Trong bài viết này, chúng tôi xin hướng dẫn bạn 5 phương pháp nhanh chóng để xóa hàng loạt nhiều hàng hoặc nhiều cột trong bảng Word của bạn.
Chúng tôi đặt dữ liệu vào các bảng để làm cho tài liệu dễ nhìn. Không có gì lạ khi tạo ra một chiếc bàn dài. Tuy nhiên, khi bạn kiểm tra lại bảng và thấy một số hàng và cột không cần thiết, bạn sẽ cần một cách nhanh chóng để loại bỏ chúng.
Trước tiên, hãy xem các cách để xóa nhiều hàng hoặc cột liên tiếp.
Phương pháp 1: Xóa Hàng hoặc Cột thông qua Menu ngữ cảnh
- Đầu tiên, chọn một loạt các hàng hoặc cột và nhấp chuột phải.
- Sau đó chọn “Xóa hàng” hoặc “Xóa cột” tương ứng.
- Hoặc bạn có thể chọn hàng hoặc cột và nhấp vào “Bố cục”.
- Sau đó chọn “Xóa” và chọn “Xóa cột” hoặc “Xóa hàng”.
Cách 2: Sử dụng phím tắt
- Đầu tiên, chọn hàng hoặc cột.
- Thứ hai, nhấn “Backspace”.
Bây giờ nếu các cột hoặc hàng không liên tiếp, chúng ta không thể xóa chúng bằng các phương pháp trên. Thay vào đó, bạn có thể triển khai các phương pháp sau.
Phương pháp 3: Đặt các hàng hoặc cột không cần thiết lại với nhau
- Chọn một hàng hoặc cột đầu tiên.
- Sau đó click chuột và giữ.
- Kéo chuột đến vị trí thích hợp và thả ra.
- Sau đó, chọn tất cả các hàng hoặc cột cần xóa và sử dụng các phương pháp trên để xóa chúng.
Phương pháp 4: Chạy Macro để xóa nhiều hàng không liên tiếp
- Trước hết, hãy chọn các hàng.
- Nhấn “Alt + F11” để mở trình chỉnh sửa VBA trong Word.
- Sau đó, tạo một mô-đun bằng cách nhấp vào dự án “Bình thường''.
- Tiếp theo nhấp vào “Chèn” và chọn “Mô-đun”.
- Mở mô-đun bằng cách nhấp đúp chuột và dán mã sau:
Sub DeleteNonConsecutiveRows()
Dim objCell As Cell
Dim objTable As Table
Dim nIndex As Integer, nRows As Integer
Dim strTable As String
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
' Delete contents in selected rows.
Selection.Delete
With Selection.Tables(1)
nRows = .Rows.Count
For nIndex = nRows To 1 Step -1
For Each objCell In .Rows(nIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
Else
varCellEmpty = True
.Rows(nIndex).Delete
End If
Next objCell
Next nIndex
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
- Cuối cùng nhưng không kém phần quan trọng, hãy nhấp vào “Chạy” hoặc nhấn “F5”.
Phương pháp 5: Chạy Macro để xóa nhiều cột không liên tiếp
- Trước tiên, hãy chọn các cột cần nhắm mục tiêu bằng phím “Ctrl”.
- Tiếp theo, cài đặt và chạy macro theo các bước chính xác ở trên.
- Nhưng thay thế macro bằng cái này:
Sub DeleteNonConsecutiveColumns()
Dim objCell As Cell
Dim objTable As Table
Dim nIndex As Integer, nColumns As Integer
Dim strTable As String
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
' Delete contents in selected columns.
Selection.Delete
With Selection.Tables(1)
nColumns = .Columns.Count
For nIndex = nColumns To 1 Step -1
For Each objCell In .Columns(nIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
Else
varCellEmpty = True
.Columns(nIndex).Delete
End If
Next objCell
Next nIndex
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
Coi chừng tham nhũng tài liệu
Với việc sử dụng ngày càng nhiều thiết bị lưu trữ kỹ thuật số, điều quan trọng là phải chăm sóc dữ liệu. Một trong những cách tốt nhất là sao lưu chúng. Ví dụ: khi đang sử dụng Word, nó có thể đột ngột ngừng phản hồi. Và khi nó trở lại bình thường, bạn chỉ có thể thấy tài liệu của mình đã chết. Và sau đó bạn sẽ phải trải qua tất cả những ồn ào của phục hồi docx.
Giới thiệu tác giả:
Vera Chen là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa xlsx và pdf sửa chữa các sản phẩm phần mềm. Để biết thêm thông tin, hãy truy cập www.datanumennăm