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

Trong quy 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 thuận tiện, 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 .

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

Xóa toàn bộ 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 được cho phép bạn xóa toàn bộ 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 gọn. Bạn hoàn toàn có thể vô hiệu 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 giải trí, hãy chọn Tab Developer trên thanh công cụ, chọn Visual Basic, như vậy hành lang cửa số Microsoft Visual Basic for Application cũng sẽ Open .

Bước 2 : Chọn Insert, chọn Module. Tại hành lang cửa số Module mới mở, bạn hãy sao chép và dán mã VBA dưới đây vào hành lang 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
Xem thêm: Cách hiện công thức trong Excel để in ấn đơn giản cho mọi phiên bản 
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ổng thể 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 thuần phải không các bạn .—Có một trong thực tiễn 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 và kiến thức 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 viên dùng Word và tự tin trước mọi thứ tương quan đến Word hãy chiếm hữu ngay cho mình trọn bộ kiến thức và kỹ năng : Chinh phục MOS Word 2013 cùng Nimbus và Tuyệt đỉnh Microsoft Word – Chuyên gia soạn thảo văn bản nhé .

Source: https://thiennhuong.com
Category: Thủ Thuật