Gå til hovedindhold

Hvordan fjernes 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 praktisk 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 en efter en.

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

Word's makrofunktion giver en langt 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 en 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 til Word, gør venligst som nedenfor:(Gratis download Kutools til 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.

doc kutools fjern tomme rækker 2  doc 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.
doc kutools fjern tomme rækker 4

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

Bedste kontorproduktivitetsværktøjer

Kutools for Word - Forøg din Word-oplevelse med Over 100 Bemærkelsesværdige funktioner!

🤖 Kutools AI-assistent: Transformer din skrivning med AI - Generer indhold  /  Omskriv tekst  /  Opsummer dokumenter  /  Spørg for information baseret på Dokument, alt sammen i Word

📘 Dokumentbeherskelse: Opdelt sider  /  Flet dokumenter  /  Eksporter udvalg i forskellige formater (PDF/TXT/DOC/HTML...)  /  Batch Konverter til PDF  /  Eksporter sider som billeder  /  Udskriv flere filer på én gang...

Indholdsredigering: Batch Find og erstat på tværs af flere filer  /  Ændr størrelse på alle billeder  /  Transponer tabelrækker og kolonner  /  Konverter tabel til tekst...

🧹 Ubesværet rengøring: Fej væk Ekstra pladser  /  Afsnit bryder  /  Alle overskrifter  /  Tekstbokse  /  Hyperlinks  / For mere fjernelse af værktøjer, gå til vores Fjern gruppe...

Kreative indlæg: Indsæt Tusind adskillere  /  Afkrydsningsfelter  /  Radio knapper  /  QR kode  /  Stregkode  /  Diagonal linjebord  /  Ligningstekst  /  Billede Caption  /  Tabeltekst  /  Flere billeder  / Oplev mere i Indsæt gruppe...

???? Præcisionsvalg: Find ud af specifikke sider  /  tabeller  /  former  /  overskrifter  / Forbedre navigation med mere Vælg funktioner...

Stjerneforbedringer: Naviger hurtigt til ethvert sted  /  automatisk indsæt gentagende tekst  /  skifte problemfrit mellem dokumentvinduer  /  11 Konverteringsværktøjer...

???? Vil du prøve disse funktioner? Kutools for Word tilbyder en 60-dages gratis prøveperiode, uden begrænsninger! 🚀
 
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