У цій статті ми хотіли б показати вам 5 швидких методів пакетного видалення кількох рядків або стовпців у вашій таблиці Word.
Ми вкладаємо дані в таблиці, щоб зробити документ простим для очей. Нерідко можна створити довгий стіл. Однак, коли ви знову перевірите таблицю і виявите, що деякі рядки та стовпці непотрібні, вам знадобиться швидкий спосіб їх видалення.
Спочатку розглянемо способи видалення декількох послідовних рядків або стовпців.
Спосіб 1: Видалення рядків або стовпців через контекстне меню
- По-перше, виберіть ряд рядків або стовпців і клацніть правою кнопкою миші.
- Потім виберіть «Видалити рядки» або «Видалити стовпці» відповідно.
- Або ви можете вибрати рядки або стовпці та натиснути “Макет”.
- Потім виберіть «Видалити» та виберіть «Видалити стовпці» або «Видалити рядки».
Спосіб 2: Використовуйте ярлики
- По-перше, виберіть рядки або стовпці.
- По-друге, натисніть “Backspace”.
Тепер, якщо стовпці або рядки не є послідовними, ми не можемо їх видалити, використовуючи вищезазначені методи. Натомість ви можете розгорнути наступні методи.
Спосіб 3: Складіть непотрібні рядки або стовпці
- Спочатку виберіть рядок або стовпець.
- Потім клацніть мишею і утримуйте.
- Перетягніть мишу у потрібне положення та відпустіть.
- Потім виберіть усі цільові рядки або стовпці та видаліть їх за допомогою наведених вище методів.
Спосіб 4: Запустіть макрос, щоб видалити кілька послідовних рядків
- Перш за все, виберіть рядки.
- Натисніть “Alt + F11”, щоб відкрити редактор VBA у програмі Word.
- Потім створіть модуль, натиснувши проект «Звичайний».
- Потім натисніть «Вставити» та виберіть «Модуль».
- Відкрийте модуль подвійним клацанням і вставте такі коди:
Sub DeleteNonConsecutiveRows()
Dim objCell As Cell
Dim objTable As Table
Dim nIndex As Integer, nRows As Integer
Dim strTable As String
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
' Delete contents in selected rows.
Selection.Delete
With Selection.Tables(1)
nRows = .Rows.Count
For nIndex = nRows To 1 Step -1
For Each objCell In .Rows(nIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
Else
varCellEmpty = True
.Rows(nIndex).Delete
End If
Next objCell
Next nIndex
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
- І останнє, але не менш важливе, натисніть «Виконати» або натисніть «F5».
Спосіб 5: Запустіть макрос, щоб видалити кілька не послідовних стовпців
- Спочатку виберіть цільові стовпці за допомогою клавіші «Ctrl».
- Потім встановіть і запустіть макрос, виконуючи ці самі кроки вище.
- Але замініть макрос на такий:
Sub DeleteNonConsecutiveColumns()
Dim objCell As Cell
Dim objTable As Table
Dim nIndex As Integer, nColumns As Integer
Dim strTable As String
Dim varCellEmpty As Boolean
Application.ScreenUpdating = False
' Delete contents in selected columns.
Selection.Delete
With Selection.Tables(1)
nColumns = .Columns.Count
For nIndex = nColumns To 1 Step -1
For Each objCell In .Columns(nIndex).Cells
If Len(objCell.Range.Text) > 2 Then
varCellEmpty = False
Exit For
Else
varCellEmpty = True
.Columns(nIndex).Delete
End If
Next objCell
Next nIndex
End With
Set objCell = Nothing
Set objTable = Nothing
Application.ScreenUpdating = True
End Sub
Слідкуйте за пошкодженням документів
Зі збільшенням використання цифрових запам'ятовуючих пристроїв важливо подбати про дані. Одним з найкращих способів є їх резервне копіювання. Наприклад, під час використання Word він може раптово перестати відповідати. І коли він повернеться до норми, ви зможете знайти лише свій документ мертвим. І тоді вам доведеться пережити всю суєту відновлення docx - -.
Вступ автора:
Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі виправлення xlsx та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com