Ugrás a tartalomra

Hogyan lehet eltávolítani az üres sorokat és oszlopokat a Word táblázataiból?

Hogyan lehet eltávolítani az összes üres sort és oszlopot a Word táblázataiból? Ez az oktatóanyag számos módszert mutat be az üres sorok és oszlopok eltávolítására a Word dokumentum táblázataiból.

Az összes üres sort és oszlopot kézzel távolítsa el a táblázatokból

Távolítsa el az összes üres sort és oszlopot a táblákból a VBA kód használatával

Az összes üres sort és oszlopot egy kattintással távolítsa el a táblákbóljó ötlet3


Az összes üres sort és oszlopot kézzel távolítsa el a táblázatokból

A Microsoft Office Word nem nyújt kényelmes módszert az üres sorok és oszlopok eltávolítására, és ezeket úgy kell eltávolítania, hogy manuálisan válassza ki az üres sorokat és oszlopokat, majd egyesével törölje őket.

1. lépés: Válassza ki a törölni kívánt üres sort vagy oszlopot. Lásd a képernyőképet:

doc-removerowsandcols-1

3. lépés: alatt Táblázat Kattintson az Eszközök elemre elrendezés Tab;

doc-removerowsandcols-2

4. lépés: A Sorok és oszlopok csoport, kattintson Sorok törlése vagy Oszlopok törlése.

doc-removerowsandcols-3


Távolítsa el az összes üres sort és oszlopot a táblákból a VBA kód használatával

A Word makró funkciója sokkal kényelmesebb módot kínál az összes üres sor és oszlop eltávolítására a dokumentum táblázataiból. Az összes üres sort és oszlopot az alábbiak szerint távolíthatja el.

1 lépés: Nyomja meg a gombot „Alt-F11” a Microsoft Visual Basic for Application ablak megnyitása;

2 lépés: Kattintson a gombra Modulok a betétlap fülre másolja és illessze be a következő VBA kódot a Modul ablakba;

3. lépés: Ezután kattintson a gombra futásdoc-fordított-jel-6 gombra a VBA alkalmazásához.

A VBA-kód az összes üres sor és oszlop eltávolításához a táblákból:

Sub DeleteEmptyTablerowsand oszlopok ()
Application.ScreenUpdating = Hamis
Dim Tbl mint táblázat, cel mint sejt, i olyan hosszú, n olyan hosszú, üres, mint a logikai
Az ActiveDocument alkalmazással
Minden Tbl-re a .Táblákban
n = Tbl.oszlopok.szám
Az i = n esetén 1-hez 1. lépés
fEmpty = Igaz
Minden celra a Tbl.oszlopokban (i). Sejtek
Ha Len (cel.Range.Text)> 2 Akkor
fEmpty = Hamis
Kilépés
Ha véget
Következő cel
Ha fEmpty = Igaz, akkor Tbl.Oszlopok (i). Törlés
Következő i
Következő Tbl
Vége
Az ActiveDocument alkalmazással
Minden Tbl-re a .Táblákban
n = Tbl. Sorok száma
Az i = n esetén 1-hez 1. lépés
fEmpty = Igaz
Minden celra a Tbl-ben. (I) sorok. Sejtek
Ha Len (cel.Range.Text)> 2 Akkor
fEmpty = Hamis
Kilépés
Ha véget
Következő cel
Ha fEmpty = Igaz, akkor a Tbl.Rows (i). Törlés
Következő i
Következő Tbl
Vége
Set cel = Semmi: Set Tbl = Semmi
Application.ScreenUpdating = Igaz
End Sub


Az összes üres sort és oszlopot egy kattintással távolítsa el a táblákból

A Kutools for Word a legkényelmesebb módja annak, hogy eltávolítsa az összes üres sort és oszlopot a dokumentum táblázataiból. Csak egyszer kell kattintani, és Kutools for Word's Delete Rows/Columns A segédprogram gyorsan eltávolítja az összes üres sort és oszlopot az összes vagy a selecetd táblából.

Kutools for Word, Több mint  praktikus funkciókkal megkönnyíti a munkáját. 

Telepítése után Kutools for Word, kérjük, tegye a következőket:(A Kutools for Word ingyenes letöltése most!)

1. kettyenés Kutools Plus > Delete Rows/Columns a Table ablaktábla.

doc az üres sorok oszlopainak eltávolítása az 1. táblázatból

2. Ezután megjelenik egy párbeszédpanel, a Megtekintés részben válassza ki azt a hatókört, amelyből táblákat szeretne eltávolítani, majd ellenőrizze Sor lehetőség és Üres sor opciót, vagy ellenőrizze Oszlop lehetőség és Üres sor opció, amire szüksége van. Ha törölni szeretné az összes üres sort és oszlopot, ezt a műveletet kétszer kell alkalmaznia.

doc kutools eltávolítja az üres 2. sorokat  doc kutools eltávolítja az üres 3. sorokat 

Most megjelenik egy párbeszédpanel, amely emlékezteti Önt, hogy hány táblával foglalkozott, kattintson a gombra OK bezárásra, és az üres sorokat és oszlopokat eltávolították a táblákból.
doc kutools eltávolítja az üres 4. sorokat

Tipp.Ha üres sorokat szeretne eltávolítani az Excel lapról, akkor a Üres sorok törlése A Kutools for Excel segédprogramja segíthet.

A legjobb irodai hatékonyságnövelő eszközök

Kutools for Word - Növelje Word-élményét az Over segítségével 100 Figyelemre méltó tulajdonságok!

🤖 Kutools AI asszisztens: Alakítsa át írását mesterséges intelligencia segítségével - Tartalom létrehozása  /  Szöveg átírása  /  Összefoglalja a dokumentumokat  /  Információért érdeklődjön dokumentum alapján, mindezt a Word-en belül

📘 Dokumentummesterség: Felosztott oldalak  /  Dokumentumok egyesítése  /  Kijelölés exportálása különböző formátumokban (PDF/TXT/DOC/HTML...)  /  Kötegelt konvertálás PDF-be  /  Oldalak exportálása képként  /  Nyomtasson több fájlt egyszerre...

Tartalom Szerkesztés: Kötegelt keresés és csere Több fájl között  /  Minden kép átméretezése  /  Transzponálja a táblázat sorait és oszlopait  /  Táblázat konvertálása szöveggé...

🧹 Könnyed tisztítás: Söpörj el Extra helyek  /  Szakaszszünetek  /  Minden fejléc  /  Szövegdobozok  /  Hiperhivatkozások  / További eltávolító eszközökért látogasson el a mi oldalunkra Csoport eltávolítása...

Kreatív betétek: Beszúrás Ezer elválasztó  /  Jelölőnégyzetek  /  Rádió gombok  /  QR-kód  /  Vonalkód  /  Átlós vonal táblázat  /  Egyenletfelirat  /  Képfelirat  /  Táblázat felirata  /  Több kép  / Fedezzen fel többet a Csoport beszúrása...

???? Precíziós kiválasztás: Pontosan konkrét oldalak  /  asztalok  /  formák  /  címsor bekezdései  / A navigáció javítása a következővel: több Jelölje ki a funkciókat...

Star Enhancements: Gyorsan navigáljon bármely helyre  /  ismétlődő szöveg automatikus beszúrása  /  zökkenőmentesen válthat a dokumentumablakok között  /  11 Konverziós eszközök...

???? Ki szeretné próbálni ezeket a funkciókat? A Kutools for Word kínál a 60 napos ingyenes próba, korlátozások nélkül! 🚀
 
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