Salt la conținutul principal

Cum se elimină rândurile și coloanele goale din tabele în Word?

Autor: Amanda Li Ultima modificare: 2024-07-16

Rândurile și coloanele goale din tabele pot face documentul dvs. Word să pară aglomerat și neorganizat. Acest tutorial vă va arăta mai multe modalități de a elimina eficient toate rândurile și coloanele goale din tabelele dintr-un document Word.

Indiferent dacă preferați să o faceți manual, să utilizați codul VBA sau să utilizați o soluție cu un singur clic, aceste metode vă vor ajuta să vă curățați tabelele și să îmbunătățiți aspectul general al documentului.


Eliminați manual toate rândurile și coloanele goale din tabele

Microsoft Office Word nu oferă o modalitate convenabilă de a elimina rândurile și coloanele goale și trebuie să le eliminați selectând manual fiecare rând și coloană goală și apoi ștergeți-le unul câte unul.

Pasul 1: Selectați rândul gol sau coloana goală pe care doriți să o ștergeți. Vedeți captura de ecran:

doc-removerowsandcols-1

Pasul 2: Sub Tabel Instrumente, faceți clic pe Aspect Filă;

doc-removerowsandcols-2

Pasul 3: În Rânduri și coloane grup, faceți clic pe Ștergeți rândurile sau Ștergeți coloane.

doc-removerowsandcols-3


Eliminați toate rândurile și coloanele goale din tabele utilizând codul VBA

Funcția Macro a Word oferă o modalitate mult mai convenabilă de a elimina toate rândurile și coloanele goale din tabele din document. Puteți elimina toate rândurile și coloanele goale după cum urmează.

Pasul 1: Apăsați „Alt-F11” pentru a deschide fereastra Microsoft Visual Basic pentru aplicație;

Pasul 2: Faceți clic pe Module pe Insera filă, copiați și lipiți următorul cod VBA în fereastra Module;

Pasul 3: Apoi faceți clic pe Alergadoc-revers-semn-6 pentru a aplica VBA.

Codul VBA pentru a elimina toate rândurile și coloanele goale din tabele:

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

Eliminați toate rândurile și coloanele goale din tabele cu un singur clic

Kutools pentru Word vă oferă cel mai convenabil mod de a elimina toate rândurile și coloanele goale din tabele din document. Trebuie doar să faceți clic o dată și Kutools pentru Cuvânt's Delete Rows/Columns utilitarul va elimina rapid toate rândurile și coloanele goale din toate tabelele sau din tabelele selectate.

Kutools pentru Cuvânt, echipat cu AI 🤖, oferă peste 100 de funcții utile pentru a vă simplifica sarcinile.

După instalare Kutools pentru Word, vă rugăm să faceți după cum urmează:(Descărcați gratuit Kutools pentru Word acum!)

1. clic Kutools Plus > Delete Rows/Columns pe Table panoul.

doc eliminați coloanele de rânduri goale din tabelul 1

2. Apoi apare o fereastră de dialog, alegeți domeniul de la care doriți să eliminați tabelele în secțiunea Căutare în, apoi verificați Rând opțiune și Rând gol opțiune sau bifați Coloană opțiune și Rând gol opțiune după cum aveți nevoie. Dacă doriți să ștergeți toate rândurile și coloanele necompletate, trebuie să aplicați această operație de două ori.

doc kutools elimină rândurile goale 2  doc kutools elimină rândurile goale 3 

Acum apare o casetă de dialog pentru a vă aminti câte tabele au fost procesate, faceți clic OK pentru a închide, iar rândurile și coloanele goale au fost eliminate din tabele.
doc kutools elimină rândurile goale 4

Descopera Kutools / Kutools Plus filă în acest videoclip de la Kutools pentru Cuvânt. Bucurați-vă de peste 100 de funcții și de utilități AI gratuite permanent. Descarcă acum!

Bacsis. Dacă doriți să eliminați rândurile goale din foaia Excel, Ștergeți rândurile goale utilitatea Kutools pentru Excel te poate ajuta.

Cele mai bune instrumente de productivitate de birou

Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!

🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut  /  Rescrie textul  /  Rezumat documente  /  Obțineți răspunsuri rapide, toate în Cuvânt

📘 Stăpânirea documentelor: Pagini împărțite  /  Fuzionați documente  /  Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...)  /  Conversie lot în PDF  /  Exportați paginile ca imagini  /  Imprimați mai multe fișiere simultan...

Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere  /  Redimensionați toate imaginile  /  Transpuneți rânduri și coloane de tabel  /  Convertiți tabelul în text...

🧹 Curățare fără efort: Îndepărtați Spații suplimentare  /  Secțiuni pauze  /  Toate anteturile  /  Casete text  /  hiperlinkuri  / Pentru mai multe instrumente de îndepărtare, mergeți la Eliminați grupul...

Inserții creative: Inserați Mii de separatori  /  Casete de bifare  /  Butoane radio  /  QR Code  /  coduri de bare  /  Tabel cu linii diagonale  /  Legenda ecuației  /  Image Caption  /  Legenda tabelului  /  Imagini multiple  / Descoperiți mai multe în Inserați grupul...

???? Selectii de precizie: Repera cu precizie Pagini specifice  /  Mese  /  Forme  /  Paragrafe de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați la orice locație  /  Inserarea automată a textului repetitiv  /  Comutați între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Descărcați Kutools pentru Word acum! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
Many many thanks. Its 100% worked.
This comment was minimized by the moderator on the site
Hi, thanks for the CODE, it worked on a document with only one table.

but when launching it on a word document with different tables from different sizes, i got this error : "Run-time error '5992' Cannot access individual columns in this collection because the table has mixed cell widths"

Can anybody help, please
This comment was minimized by the moderator on the site
Bonjour,

Quand j'exécute le programme, l'erreur suivante s'affiche " Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure"

Quelqu'un a une solution s'il vous plait ?
This comment was minimized by the moderator on the site
I found this macro and it works great when it comes to a table with single empty rows.
Is it possible to change it to work on a table with split rows as well?
I would very much thank you if you have a solution for me.
This comment was minimized by the moderator on the site
Hi, shimon, I don't not understand your question, please give me examples or describe the question with more details.
This comment was minimized by the moderator on the site
You just saved me a zillion hours of frustration, THANK YOU!
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations