Прескочи на основното съдържание

Как да премахнете празни редове и колони от таблици в Word?

Автор: Аманда Ли Последна промяна: 2020-08-21

Как можете да премахнете всички празни редове и колони от таблици в Word? Този урок ще ви покаже няколко начина за премахване на празни редове и колони от таблици в документ на Word.

Премахнете ръчно всички празни редове и колони от таблиците

Премахнете всички празни редове и колони от таблици с помощта на VBA код

Премахнете всички празни редове и колони от таблици с едно щракванедобра идея3


Премахнете ръчно всички празни редове и колони от таблиците

Microsoft Office Word не предоставя удобен начин за премахване на празни редове и колони и трябва да ги премахнете, като изберете ръчно всеки празен ред и колона и след това ги изтриете един по един.

Стъпка 1: Изберете празния ред или празната колона, които искате да изтриете. Вижте екранна снимка:

doc-removerowsandcols-1

Стъпка 3: Под Маса Инструменти, щракнете върху оформление Раздел;

doc-removerowsandcols-2

Стъпка 4: В Редове и колони група, щракнете върху Изтриване на редове или Изтриване на колони.

doc-removerowsandcols-3


Премахнете всички празни редове и колони от таблици с помощта на VBA код

Макро функцията на Word предоставя много по-удобен начин за премахване на всички празни редове и колони от таблици в документа. Можете да премахнете всички празни редове и колони, както следва.

Стъпка 1: Натиснете „Alt-F11“ за да отворите прозореца на Microsoft Visual Basic for Application;

Стъпка 2: Кликнете върху Модули на Поставете раздел, копирайте и поставете следния VBA код в прозореца на модула;

Стъпка 3: След това щракнете бяганеdoc-обратен-знак-6 бутон за прилагане на VBA.

Кодът на VBA за премахване на всички празни редове и колони от таблици:

Sub DeleteEmptyTablerowsandcolumns()
Application.ScreenUpdating = False
Dim Tbl As Table, cel Като Cell, i As Long, n As Long, fEmpty As Boolean
С ActiveDocument
За всеки Tbl In .Tables
n = Tbl.Columns.Count
За i = n Към 1 Стъпка -1
fEmpty = Вярно
За всяка клетка в Tbl.Columns(i).Cells
Ако Len(cel.Range.Text) > 2 Тогава
fEmpty = False
Изход за
крайна сметка, ако
Следваща cel
If fEmpty = True Then Tbl.Columns(i).Delete
Следващ i
Следваща табл
Край с
С ActiveDocument
За всеки Tbl In .Tables
n = Tbl.Rows.Count
За i = n Към 1 Стъпка -1
fEmpty = Вярно
За всяка клетка в Tbl.Rows(i).Cells
Ако Len(cel.Range.Text) > 2 Тогава
fEmpty = False
Изход за
крайна сметка, ако
Следваща cel
If fEmpty = True Then Tbl.Rows(i).Delete
Следващ i
Следваща табл
Край с
Задайте cel = нищо: Задайте Tbl = нищо
Application.ScreenUpdating = Вярно
End Sub


Премахнете всички празни редове и колони от таблици с едно щракване

Kutools за Word ви предоставя най-удобния начин да премахнете всички празни редове и колони от таблици в документа. Просто трябва да щракнете веднъж и Kutools за Word' с Delete Rows/Columns помощната програма бързо ще премахне всички празни редове и колони от всички или избрани таблици вместо вас.

Kutools за Word, с повече от  удобни функции, улеснява работата ви. 

След инсталиране Kutools за Word, моля, направете следното:(Безплатно изтегляне на Kutools за Word сега!)

1. кликване Kutools плюс > Delete Rows/Columns на Table панел.

doc премахнете празни редове колони от таблица 1

2. След това се появява диалогов прозорец, изберете обхвата, от който искате да премахнете таблици, в секцията Търсене в, след което маркирайте Ред опция и Празен ред опция или проверете Колона опция и Празен ред опция, колкото ви трябва. Ако искате да изтриете всички празни редове и колони, трябва да приложите тази операция два пъти.

doc kutools премахване на празни редове 2  doc kutools премахване на празни редове 3 

Сега изскача диалогов прозорец, за да ви напомни с колко маси сте работили, щракнете OK за затваряне, а празните редове и колони са премахнати от таблиците.
doc kutools премахване на празни редове 4

Бакшиш.Ако искате да премахнете празни редове от Excel лист, Изтриване на празни редове помощната програма на Kutools за Excel може да ви помогне.

Най-добрите инструменти за продуктивност в офиса

Kutools за Word - Подобрете своя Word опит с Over 100 Забележителни функции!

🤖 Kutools AI Assistant: Преобразувайте писането си с AI - Генериране на съдържание  /  Пренаписване на текст  /  Обобщаване на документи  /  Запитване за информация въз основа на Документ, всичко това в Word

📘 Владеене на документи: Разделяне на страници  /  Обединяване на документи  /  Експортиране на селекция в различни формати (PDF/TXT/DOC/HTML...)  /  Пакетно конвертиране в PDF  /  Експортиране на страници като изображения  /  Отпечатайте няколко файла наведнъж...

Редактиране на съдържанието: Пакетно намиране и замяна в множество файлове  /  Преоразмеряване на всички снимки  /  Транспониране на редовете и колоните на таблицата  /  Преобразуване на таблица в текст...

🧹 Почистване без усилие: Изметете Допълнителни пространства  /  Прекъсвания на раздели  /  Всички заглавки  /  Текстови полета  /  Хипервръзки  / За повече инструменти за премахване се насочете към нашия Премахване на група...

Творчески вложки: Вмъкване Хилядни разделители  /  Квадратчета  /  Радио бутони  /  QR Code  /  Баркод  /  Таблица с диагонални линии  /  Надпис на уравнение  /  Надпис на изображението  /  Надпис на таблица  /  Множество снимки  / Открийте повече в Вмъкване на група...

🔍 Прецизни селекции: Точна точка конкретни страници  /  таблици  /  форми  /  заглавни параграфи  / Подобрете навигацията с още Изберете функции...

Звездни подобрения: Навигирайте бързо до всяко място  /  автоматично вмъкване на повтарящ се текст  /  безпроблемно превключване между прозорците на документи  /  11 Инструменти за конвертиране...

👉 Искате ли да изпробвате тези функции? Kutools за Word предлага a 60-дневен безплатен пробен период, без ограничения! ????
 
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