Перейти до основного матеріалу

Як видалити порожні рядки та стовпці з таблиць у Word?

Як можна видалити всі порожні рядки та стовпці з таблиць у програмі 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 для програми;

Крок 2: клацніть Модулі на Insert вкладку, скопіюйте та вставте наступний код VBA у вікно Модуль;

Крок 3: Потім натисніть прогінdoc-зворотний знак-6 , щоб застосувати VBA.

Код VBA для видалення всіх порожніх рядків і стовпців із таблиць:

ПідвидаленняEmptyTablerowsandcolumns ()
Application.ScreenUpdating = Невірний
Затемнити Tbl як таблицю, cel As Cell, i As Long, n As Long, fEmpty As Boolean
З ActiveDocument
Для кожної таблиці в таблицях
n = Tbl.Columns.Count
Для i = n До 1 Крок -1
fEmpty = Істина
Для кожної одиниці в Табл. Стовпці (i). Клітини
Якщо Лен (cel.Range.Text)> 2 Тоді
fEmpty = Неправильно
Вихід для
End If
Далі чел
Якщо fEmpty = True, тоді Tbl.Columns (i) .Delete
Далі я
Далі табл
Кінець з
З ActiveDocument
Для кожної таблиці в таблицях
n = Tbl.Rows.Count
Для i = n До 1 Крок -1
fEmpty = Істина
Для кожної одиниці в табл. Рядки (i). Клітини
Якщо Лен (cel.Range.Text)> 2 Тоді
fEmpty = Неправильно
Вихід для
End If
Далі чел
Якщо fEmpty = True, тоді Tbl.Rows (i). Видалити
Далі я
Далі табл
Кінець з
Встановити cel = Нічого: Встановити Tbl = Нічого
Application.ScreenUpdating = True
End Sub


Видаліть усі порожні рядки та стовпці з таблиць одним клацанням миші

Kutools для Word надає вам найзручніший спосіб видалити всі порожні рядки та стовпці з таблиць у документі. Вам просто потрібно клацнути один раз і Kutools для Word's Delete Rows/Columns Утиліта швидко видалить усі порожні рядки та стовпці з усіх таблиць або таблиць selecetd.

Kutools для Word, з більш ніж  зручні функції, полегшує вам роботу. 

після установки Kutools для Word, будь-ласка, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Word зараз!)

1. клацання Kutools Plus > 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: змініть свій текст за допомогою ШІ - Створення вмісту  /  Переписати текст  /  Узагальнити документи  /  Звертайтеся за інформацією на основі Документа, все в Word

📘 Майстерність документів: Розділити сторінки  /  Об’єднати документи  /  Експортувати вибране в різні формати (PDF/TXT/DOC/HTML...)  /  Пакетне перетворення в PDF  /  Експортувати сторінки як зображення  /  Друк кількох файлів одночасно...

Редагування змісту: Пакетний пошук та заміна між кількома файлами  /  Змінити розмір усіх зображень  /  Транспонування рядків і стовпців таблиці  /  Перетворити таблицю в текст...

🧹 Очищення без зусиль: Змітати Зайві простори  /  Розбиття розділів  /  Усі заголовки  /  Текстові поля  /  Гіперпосилання  / Щоб отримати більше інструментів для видалення, відвідайте наш сайт Вилучити групу...

Творчі вставки: Вставити Роздільники тисяч  /  Прапорці  /  радіо кнопки  /  QR-код  /  Штрих-код  /  Таблиця діагональних ліній  /  Заголовок рівняння  /  Підпис зображення  /  Заголовок таблиці  /  Кілька зображень  / Дізнайтеся більше в Вставити групу...

???? Точність вибору: Точне визначення конкретні сторінки  /  Таблиці  /  форми  /  заголовок абзаців  / Покращте навігацію за допомогою більше Виберіть функції...

Покращення зірок: Швидка навігація до будь-якого місця  /  автоматичне вставлення повторюваного тексту  /  плавно перемикатися між вікнами документів  /  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