Hoppa till huvudinnehåll

Hur tar jag bort tomma rader och kolumner från tabeller i Word?

Hur kan du ta bort alla tomma rader och kolumner från tabeller i Word? Denna handledning visar dig flera sätt att ta bort tomma rader och kolumner från tabeller i Word-dokument.

Ta bort alla tomma rader och kolumner manuellt från tabeller

Ta bort alla tomma rader och kolumner från tabeller med hjälp av VBA-kod

Ta bort alla tomma rader och kolumner från tabellerna med ett klickbra idé3


Ta bort alla tomma rader och kolumner manuellt från tabeller

Microsoft Office Word ger inte ett bekvämt sätt att ta bort tomma rader och kolumner, och du måste ta bort dem genom att manuellt markera varje tom rad och kolumn och sedan ta bort dem en efter en.

Steg 1: Välj den tomma raden eller den tomma kolumnen du vill ta bort. Se skärmdump:

doc-removerowsandcols-1

Steg 3: Under Bord Verktyg, klicka på Layout Flik;

doc-removerowsandcols-2

Steg 4: I Rader och kolumner grupp, klicka Radera rader eller Radera kolumner.

doc-removerowsandcols-3


Ta bort alla tomma rader och kolumner från tabeller med hjälp av VBA-kod

Makrofunktionen i Word ger ett mycket bekvämare sätt att ta bort alla tomma rader och kolumner från tabeller i dokumentet. Du kan ta bort alla tomma rader och kolumner enligt följande.

Steg 1: Tryck "Alt-F11" för att öppna Microsoft Visual Basic for Application-fönstret;

Steg 2: Klicka ModulernaInsert flik, kopiera och klistra in följande VBA-kod i modulfönstret;

Steg 3: Klicka sedan på Körningdoc-omvänd-tecken-6 knappen för att tillämpa VBA.

VBA-koden för att ta bort alla tomma rader och kolumner från tabeller:

Sub DeleteEmptyTablerowsandcolumn ()
Application.ScreenUpdating = False
Dim Tbl som tabell, cel som cell, jag så lång, n så lång, tom som boolesk
Med ActiveDocument
För varje tabell i .tabeller
n = Tbl.Columns.Count
För i = n Till 1 Steg -1
fEmpty = Sant
För varje cel I Tbl.Column (i) .Cells
Om Len (cel.Range.Text)> 2 Då
fEmpty = Falskt
Avsluta för
End If
Nästa cel
If fEmpty = True Then Tbl.Column (i). Radera
Nästa jag
Nästa Tbl
Sluta med
Med ActiveDocument
För varje tabell i .tabeller
n = Tbl.Rows.Count
För i = n Till 1 Steg -1
fEmpty = Sant
För varje cel i Tbl.Rows (i) .Cells
Om Len (cel.Range.Text)> 2 Då
fEmpty = Falskt
Avsluta för
End If
Nästa cel
If fEmpty = True Then Tbl.Rows (i). Radera
Nästa jag
Nästa Tbl
Sluta med
Ställ in cel = ingenting: Ställ in Tbl = ingenting
Application.ScreenUpdating = True
End Sub


Ta bort alla tomma rader och kolumner från tabellerna med ett klick

Kutools for Word ger dig det enklaste sättet att ta bort alla tomma rader och kolumner från tabeller i dokumentet. Du behöver bara klicka en gång och Kutools för Word's Delete Rows/Columns verktyget tar bort alla tomma rader och kolumner från alla eller väljade tabeller åt dig snabbt.

Kutools för Word, med mer än  praktiska funktioner, underlättar dina jobb. 

När du har installerat Kutools för Word, gör så här:(Gratis nedladdning Kutools för Word nu!)

1. klick Kutools Plus > Delete Rows/ColumnsTable rutan.

doc ta bort tomma rader kolumner från tabell 1

2. Sedan öppnas en dialogruta, välj det omfång som du vill ta bort tabeller från i avsnittet Sök i och kontrollera sedan Rad alternativ och Tom rad alternativ, eller markera Kolumn alternativ och Tom rad alternativ som du behöver. Om du vill ta bort alla tomma rader och kolumner måste du använda den här åtgärden två gånger.

doc kutools tar bort tomma rader 2  doc kutools tar bort tomma rader 3 

Nu dyker en dialog upp för att påminna dig om hur många tabeller som har behandlats, klicka OK för att stänga, och de tomma raderna och kolumnerna har tagits bort från tabellerna.
doc kutools tar bort tomma rader 4

Tips.Om du vill ta bort tomma rader från Excel-ark, kommer Ta bort tomma rader verktyget av Kutools för Excel kan hjälpa dig.

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI Assistant: Förvandla ditt skrivande med AI - Generera innehåll  /  Skriv om text  /  Sammanfatta dokument  /  Fråga för information baserat på dokument, allt i Word

📘 Dokumentbehärskning: Dela sidor  /  Sammanfoga dokument  /  Exportera urval i olika format (PDF/TXT/DOC/HTML...)  /  Batchkonvertera till PDF  /  Exportera sidor som bilder  /  Skriv ut flera filer samtidigt...

Innehållsredigering: Batch Hitta och ersätt över flera filer  /  Ändra storlek på alla bilder  /  Transponera tabellrader och kolumner  /  Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen  /  Avsnitt bryter  /  Alla rubriker  /  Textrutor  /  Hyperlänkar  / För fler borttagningsverktyg, gå till vår Ta bort gruppen...

Kreativa inlägg: Föra in Tusen avskiljare  /  Kryssrutor  /  radio Knappar  /  QR-kod  /  Streckkod  /  Diagonal linjebord  /  Bildtext för ekvation  /  Bild Bildtext  /  Tabelltextning  /  Flera bilder  / Upptäck mer i Infoga grupp...

🔍 Precisionsval: Precisera specifika sidor  /  Tabellerna  /  former  /  rubrikerna  / Förbättra navigering med mer Välj funktioner...

Stjärnförbättringar: Navigera snabbt till vilken plats som helst  /  infoga repetitiv text automatiskt  /  växla sömlöst mellan dokumentfönster  /  11 Konverteringsverktyg...

👉 Vill du prova dessa funktioner? Kutools för Word erbjuder en 60-dagars gratis försök, utan begränsningar! 🚀
 
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