Gå til hovedindhold

Sådan fjerner du tomme rækker og kolonner fra tabeller i Word?

Hvordan kan du fjerne alle tomme rækker og kolonner fra tabeller i Word? Denne vejledning viser dig flere måder at fjerne tomme rækker og kolonner fra tabeller i Word dokument.

Fjern alle tomme rækker og kolonner manuelt fra tabeller

Fjern alle tomme rækker og kolonner fra tabeller ved hjælp af VBA-kode

Fjern alle tomme rækker og kolonner fra tabeller med et enkelt klikgod idé3


Fjern alle tomme rækker og kolonner manuelt fra tabeller

Microsoft Office Word giver ikke en bekvem måde at fjerne tomme rækker og kolonner på, og du skal fjerne dem ved manuelt at vælge hver tomme række og kolonne og derefter slette dem én efter én.

Trin 1: Vælg den tomme række eller tomme kolonne, du vil slette. Se skærmbillede:

doc-fjernerowsandcols-1

Trin 3: Under Bordlampe Værktøjer, klik på Layout Fane;

doc-fjernerowsandcols-2

Trin 4: I Rækker og kolonner gruppe, klik Slet rækker eller Slet kolonner.

doc-fjernerowsandcols-3


Fjern alle tomme rækker og kolonner fra tabeller ved hjælp af VBA-kode

Makrofunktionen af Word giver en meget mere bekvem måde at fjerne alle tomme rækker og kolonner fra tabeller i dokumentet. Du kan fjerne alle tomme rækker og kolonner som følger.

Trin 1: Tryk på "Alt-F11" at åbne Microsoft Visual Basic for Application-vinduet;

Trin 2: Klik Moduler på den indsatte fane, kopier og indsæt følgende VBA-kode i modulvinduet;

Trin 3: Klik derefter på Kørdoc-omvendt-tegn-6 knappen for at anvende VBA.

VBA-koden for at fjerne alle tomme rækker og kolonner fra tabeller:

Sub DeleteEmptyTablerowsandcolumn ()
Application.ScreenUpdating = False
Dim Tbl som tabel, cel som celle, jeg så lang, n så lang, tom som boolsk
Med ActiveDocument
For hver Tbl i. Tabeller
n = Tbl.Columns.Count
For i = n Til 1 Trin -1
fEmpty = Sandt
For hver cel I Tbl.Kolonner (i) .Celler
Hvis Len (cel.Range.Text)> 2 Så
fEmpty = Falsk
Afslut til
End If
Næste cel
Hvis fEmpty = Sand Så er Tbl.Kolonner (i). Slet
Næste jeg
Næste Tbl
Slut med
Med ActiveDocument
For hver Tbl i. Tabeller
n = Tbl.Rows.Count
For i = n Til 1 Trin -1
fEmpty = Sandt
For hver cel i Tbl.Rækker (i) .Celler
Hvis Len (cel.Range.Text)> 2 Så
fEmpty = Falsk
Afslut til
End If
Næste cel
Hvis fEmpty = Sand, så Tbl.Rows (i). Slet
Næste jeg
Næste Tbl
Slut med
Set cel = Intet: Set Tbl = Intet
Application.ScreenUpdating = True
End Sub


Fjern alle tomme rækker og kolonner fra tabeller med et enkelt klik

Kutools for Word giver dig den mest bekvemme måde at fjerne alle tomme rækker og kolonner fra tabeller i dokumentet. Du skal bare klikke én gang, og Kutools for Words Delete Rows/Columns værktøj fjerner hurtigt alle tomme rækker og kolonner fra alle eller valgte tabeller til dig.

Kutools for Word, med mere end  praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools for Wordskal du gøre som nedenfor:(Gratis download Kutools for Word Nu!)

1. klik Kutools Plus > Delete Rows/Columns på den Table rude.

doc fjern blanke rækkekolonner fra tabel 1

2. Derefter vises en dialogboks, vælg det omfang, som du vil fjerne tabeller fra, i sektionen Se i, og tjek derefter Række mulighed og Tom række valgmulighed eller tjek Kolonne mulighed og Tom række mulighed, som du har brug for. Hvis du vil slette alle tomme rækker og kolonner, skal du anvende denne handling to gange.

dock kutools fjern tomme rækker 2  dock kutools fjern tomme rækker 3 

Nu vises en dialog for at minde dig om, hvor mange tabeller der er behandlet, klik på OK for at lukke, og de tomme rækker og kolonner er fjernet fra tabellerne.
dock kutools fjern tomme rækker 4

Tip.Hvis du vil fjerne tomme rækker fra Excel ark, den Slet tomme rækker nytte af Kutools for Excel kan hjælpe dig.


Anbefales Word Produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
  • Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
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?
This comment was minimized by the moderator on the site
thanks for the macro, it was really helpful..
This comment was minimized by the moderator on the site
Thanks for the macro. It worked like a charm!
This comment was minimized by the moderator on the site
Hello developers - I have this macro which sits in a button and when clicked (the macro) removes the table directly above the button. Can this be fixed so that the macro only works once? Ie. if there are 2 tables in the document only 1 is deleted - then the macro ceases to work... can you advise? Sub tableDelete() ' ' tableDelete Macro 'Dim nTables As Integer nTables = ActiveDocument.Tables.Count ActiveDocument.Tables(nTables).Delete ' End Sub
This comment was minimized by the moderator on the site
[quote]Hello developers - I have this macro which sits in a button and when clicked (the macro) removes the table directly above the button. Can this be fixed so that the macro only works once? Ie. if there are 2 tables in the document only 1 is deleted - then the macro ceases to work... can you advise? Sub tableDelete() Dim nTables As Integer nTables = ActiveDocument.Tables.Count ActiveDocument.Tables(nTables).Delete End SubBy Andy Harris[/quote] Please try to use this VBA to delete all tables from current document in Word. Sub tableDelete() Dim aTable As Table For Each aTable In ActiveDocument.Tables aTable.Delete Next End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations