Přejít k hlavnímu obsahu

Jak odstranit prázdné řádky a sloupce z tabulek v aplikaci Word?

Jak můžete odstranit všechny prázdné řádky a sloupce z tabulek v aplikaci Word? Tento výukový program vám ukáže několik způsobů, jak odstranit prázdné řádky a sloupce z tabulek v dokumentu Word.

Ručně odstraňte všechny prázdné řádky a sloupce z tabulek

Odeberte všechny prázdné řádky a sloupce z tabulek pomocí kódu VBA

Jedním kliknutím odstraníte všechny prázdné řádky a sloupce z tabulekdobrý nápad3


Ručně odstraňte všechny prázdné řádky a sloupce z tabulek

Microsoft Office Word neposkytuje pohodlný způsob odebrání prázdných řádků a sloupců a je třeba je odebrat ručním výběrem každého prázdného řádku a sloupce a následným odstraněním.

Krok 1: Vyberte prázdný řádek nebo prázdný sloupec, který chcete odstranit. Viz screenshot:

doc-removerowsandcols-1

Krok 3: Pod Tabulka Nástroje, klikněte na Nákres Tabulátor;

doc-removerowsandcols-2

Krok 4: V Řádky a sloupce skupiny, klepněte na tlačítko Odstranit řádky nebo Odstranit sloupce.

doc-removerowsandcols-3


Odeberte všechny prázdné řádky a sloupce z tabulek pomocí kódu VBA

Funkce Makro aplikace Word poskytuje mnohem pohodlnější způsob, jak odstranit všechny prázdné řádky a sloupce z tabulek v dokumentu. Všechny prázdné řádky a sloupce můžete odebrat následujícím způsobem.

Krok 1: Stiskněte „Alt-F11“ otevřít okno Microsoft Visual Basic for Application;

Krok 2: Klepněte na tlačítko Modul na Vložit karta, zkopírujte a vložte následující kód VBA do okna modulu;

Krok 3: Poté klikněte Běhdoc-reverzní znamení-6 tlačítko pro použití VBA.

Kód VBA k odstranění všech prázdných řádků a sloupců z tabulek:

Sub DeleteEmptyTablerowsandcolumns ()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, fEmpty As Boolean
S ActiveDocument
Pro každou Tbl v tabulkách
n = Tbl.Columns.Count
Pro i = n Do 1 kroku -1
fEmpty = Pravda
Pro každou buňku v Tbl. Sloupce (i). Buňky
If Len (cel.Range.Text)> 2 Then
fEmpty = False
Ukončete pro
End If
Další cel
If fEmpty = True Then Tbl.Columns (i) .Delete
Příště já
Další Tbl
Konec s
S ActiveDocument
Pro každou Tbl v tabulkách
n = Tbl.Rows.Count
Pro i = n Do 1 kroku -1
fEmpty = Pravda
Pro každou buňku v Tbl. Řádky (i). Buňky
If Len (cel.Range.Text)> 2 Then
fEmpty = False
Ukončete pro
End If
Další cel
If fEmpty = True Then Tbl.Rows (i) .Delete
Příště já
Další Tbl
Konec s
Nastavit cel = nic: Nastavit Tbl = nic
Application.ScreenUpdating = True
End Sub


Jedním kliknutím odstraníte všechny prázdné řádky a sloupce z tabulek

Kutools pro Word poskytuje nejpohodlnější způsob, jak odstranit všechny prázdné řádky a sloupce z tabulek v dokumentu. Stačí kliknout jednou a Kutools pro Word's Delete Rows/Columns nástroj rychle odebere všechny prázdné řádky a sloupce ze všech nebo vybraných tabulek.

Kutools pro Word, s více než  užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Word, prosím, postupujte takto:(Stažení zdarma Kutools pro Word hned!)

1. cvaknutí Kutools Plus > Delete Rows/Columns na Table panel.

doc odstranit prázdné řádky sloupce z tabulky 1

2. Poté se zobrazí dialogové okno, v části Hledat v vyberte rozsah, ze kterého chcete odebrat tabulky, a zkontrolujte Řádek možnost a Prázdný řádek možnost, nebo zaškrtněte Sloupec možnost a Prázdný řádek možnost, jak potřebujete. Chcete-li odstranit všechny prázdné řádky a sloupce, musíte tuto operaci použít dvakrát.

doc kutools odstranit prázdné řádky 2  doc kutools odstranit prázdné řádky 3 

Nyní se zobrazí dialogové okno, které vám připomene, kolik tabulek bylo zpracováno, klikněte OK zavřít a prázdné řádky a sloupce byly z tabulek odstraněny.
doc kutools odstranit prázdné řádky 4

Spropitné.Pokud chcete odstranit prázdné řádky z listu aplikace Excel, Odstranit prázdné řádky vám pomůže Kutools pro Excel.

Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

Ponořte se do zvýrazněných funkcí níže nebo klikněte sem a prozkoumejte plnou sílu Kutools pro Word.

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/XLSX)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou ...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů   /  Změnit velikost všech obrázků   /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text ...

🧹 Čištění bez námahySmést pryč Extra prostory  /  Sekce přestávky  /   Všechny záhlaví  /  Textová pole  /  Odkazy  /  Další nástroje pro odstraňování najdete v naší skupině pro odstranění

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  /  Objevte více v naší skupině Insert

???? Přesné výběry: Označte konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  /  Procházejte se snadno pomocí naší Select Group

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje ...

Transformujte své úkoly ve Wordu pomocí Kutools. 👉 Stáhněte si nyní 30denní zkušební verzi 🚀.

Více       Stažení zdarma      Nákup
 
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