Đỗ Thúy Quỳnh
Đỗ Thúy Quỳnh
Thảo luận 0 thảo luận
Vỗ tay 0 vỗ tay
Lượt xem 1943 lượt xem

Hướng dẫn xóa hàng và cột trống khỏi bảng trong Word

Aug 21 2020

Trong quá trình kẻ bảng trên Word, việc kẻ thừa hay thiếu hàng/cột của bảng là điều rất thường thấy. Nếu thiếu thì kẻ thêm rất dễ dàng, còn thừa cột thì phải xóa như thế nào. Trong bài này Gitiho.com sẽ hướng dẫn các bạn cách xóa hàng và cột trống khỏi bảng trong tài liệu Word.

Xóa Tất cả hàng và cột trống trong Bảng

Bước 1: Chọn hàng trống hoặc cột trống mà bạn muốn xóa. 

Bước 2: Chọn tab Layout, chọn Table Tools. Như hình minh họa phía dưới.

huong-dan-xoa-hang-va-cot-trong-khoi-bang-trong-word

Bước 3: Trong nhóm Rows & Columns, nhấn chọn Delete Rows or Delete Columns. Hoặc đơn giản hơn bạn nhấn phím Delete trên bàn phím.


Xóa tất cả các hàng và cột trống khỏi bảng bằng cách sử dụng mã VBA

Chức năng Macro của Word cho phép bạn xóa tất cả hàng và cột trống khỏi bảng trong tài liệu một cách thuận tiện và nhanh chóng. Bạn có thể loại bỏ chúng bằng các bước sau:

Bước 1: Nhấn đồng thời hai phím Alt và F11 để mở cửa sổ Microsoft Visual Basic for Application. Nếu phím tắt của bạn không hoạt động, hãy chọn Tab Developer trên thanh công cụ, chọn Visual Basic, như vậy cửa sổ Microsoft Visual Basic for Application cũng sẽ xuất hiện.

huong-dan-xoa-hang-va-cot-trong-khoi-bang-trong-word

Bước 2: Chọn Insert, chọn Module. Tại cửa sổ Module mới mở, bạn hãy sao chép và dán mã VBA dưới đây vào cửa sổ đó.


Sub DeleteEmptyTablerowsandcolumns()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Columns.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Columns(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Columns(i).Delete
Next i
Next Tbl
End With
With ActiveDocument
For Each Tbl In .Tables
n = Tbl.Rows.Count
For i = n To 1 Step -1
fEmpty = True
For Each cel In Tbl.Rows(i).Cells
If Len(cel.Range.Text) > 2 Then
fEmpty = False
Exit For
End If
Next cel
If fEmpty = True Then Tbl.Rows(i).Delete
Next i
Next Tbl
End With
Set cel = Nothing: Set Tbl = Nothing
Application.ScreenUpdating = True
End Sub


Bước 3: Nhấn nút Run (hình tam giác màu xanh lá cây trên thanh công cụ) hoặc nút F5 để chạy mã VBA.

Như vậy sau tất cả các thao tác trên thì các cột và hàng trống của bảng đều được xóa bỏ. Rất đơn giản phải không các bạn.

---

Có một thực tế là nhiều người nhầm tưởng, dùng Word soạn thảo ra được một tài liệu tương đối dễ nhìn thì được coi là thành thạo. Tuy nhiên kỹ năng dùng Word lại nhiều hơn bạn tưởng, kể cả chiều sâu lẫn rộng. Để trở thành chuyên gia dùng Word và tự tin trước mọi thứ liên quan đến Word hãy sở hữu ngay cho mình trọn bộ kiến thức: Chinh phục MOS Word 2013 cùng NimbusTuyệt đỉnh Microsoft Word - Chuyên gia soạn thảo văn bản nhé.

Cùng tham gia cộng đồng hỏi đáp về chủ đề Tin học văn phòng

Thảo luận 0 câu trả lời
Lượt xem 1943 lượt xem
Vỗ tay vỗ tay

0 Bình luận

@ 2020 - Bản quyền của Công ty cổ phần công nghệ giáo dục Gitiho Việt Nam
Giấy chứng nhận Đăng ký doanh nghiệp số: 0109077145, cấp bởi Sở kế hoạch và đầu tư TP. Hà Nội