Salt la conținutul principal

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

Cum puteți elimina toate rândurile și coloanele goale din tabele în Word? Acest tutorial vă va arăta mai multe moduri de a elimina rândurile și coloanele goale din tabele din documentul Word.

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

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

Eliminați toate rândurile și coloanele goale din tabele cu un singur clicidee bună3


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 3: Sub Tabel Instrumente, faceți clic pe Aspect Filă;

doc-removerowsandcols-2

Pasul 4: Î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 = Fals
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEpty As Boolean
Cu ActiveDocument
Pentru fiecare tabel
n = Tbl.Columns.Count
Pentru i = n la 1 Pasul -1
fEmpty = Adevărat
Pentru fiecare cel din Tbl.Columns (i) .Cells
Dacă Len (cel.Range.Text)> 2 Apoi
fEmpty = Fals
Ieșiți pentru
Final, dacă
Următorul cel
Dacă fEmpty = True, atunci Tbl.Columns (i). Ștergeți
Apoi eu
Următorul Tbl
Se termina cu
Cu ActiveDocument
Pentru fiecare tabel
n = Tbl.Rânduri.Număr
Pentru i = n la 1 Pasul -1
fEmpty = Adevărat
Pentru fiecare cel din Tbl.Rows (i) .Cells
Dacă Len (cel.Range.Text)> 2 Apoi
fEmpty = Fals
Ieșiți pentru
Final, dacă
Următorul cel
Dacă fEmpty = True, atunci Tbl.Rows (i). Ștergeți
Apoi eu
Următorul Tbl
Se termina cu
Set cel = Nimic: Set Tbl = Nimic
Application.ScreenUpdating = Adevărat
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 selectate.

Kutools pentru Cuvânt, cu mai mult de  funcții la îndemână, vă ușurează lucrările. 

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 un dialog pentru a vă reaminti câte tabele au fost tratate, faceți clic pe OK pentru a închide, iar rândurile și coloanele goale au fost eliminate din tabele.
doc kutools elimină rândurile goale 4

Bacsis.Dacă doriți să eliminați rândurile goale din foaia Excel, Ștergeți rândurile goale utilitatea Kutools pentru Excel vă 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  /  Solicitați informații pe baza Documentului, 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 nostru 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  /  tabele  /  forme  /  paragrafele de titlu  / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...

Îmbunătățiri de stele: Navigați rapid în orice locație  /  inserarea automată a textului repetitiv  /  comutați fără probleme între ferestrele documentelor  /  11 Instrumente de conversie...

???? Vrei să încerci aceste funcții? Kutools pentru Word oferă a 60-zi de încercare gratuită, fără limitări! 🚀
 
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!
This comment was minimized by the moderator on the site
u know you can just resize the table right? just filter and sort your data to top check how many rows have data, click table tools and the click resize and adjust the last number to whatever you need OR go to the bottom of the table the very last cell and use the tine blue triangle to drag and resize,
This comment was minimized by the moderator on the site
Except I have multiple page document with a table with varying information in each. Furthermore, it is a merge document so different each week. I need an automated method :)
This comment was minimized by the moderator on the site
Hi, the macro is working, BUT:

After deleting all rows, all the columns of the tables with empty rows open up very wide.

How can i fix the code so that this does not happens?


I am using Office 2016.


Thank you!
This comment was minimized by the moderator on the site
Hi All, I am looking for function in word wherein, if I remove specific word then it should remove that row as well.
This comment was minimized by the moderator on the site
Thanks for the code, really useful.
This comment was minimized by the moderator on the site
Is there a macro that will delete a row if only one of the cells in that row is empty or contains a zero?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations