В этой статье мы хотели бы показать вам 5 быстрых способов пакетного удаления нескольких строк или столбцов в таблице Word.
Мы помещаем данные в таблицы, чтобы сделать документ удобным для глаз. Нередко можно создать длинную таблицу. Однако, когда вы снова проверите таблицу и обнаружите, что некоторые строки и столбцы ненужны, вам понадобится быстрый способ их удалить.
Сначала давайте рассмотрим способы удаления нескольких последовательных строк или столбцов.
Способ 1: удалить строки или столбцы через контекстное меню
- Во-первых, выберите ряд строк или столбцов и щелкните правой кнопкой мыши.
- Затем выберите «Удалить строки» или «Удалить столбцы» соответственно.
- Или вы можете выбрать строки или столбцы и нажать «Макет».
- Затем выберите «Удалить» и выберите «Удалить столбцы» или «Удалить строки».
Способ 2: используйте ярлыки
- Во-первых, выберите строки или столбцы.
- Во-вторых, нажмите «Backspace».
Теперь, если столбцы или строки не являются последовательными, мы не можем удалить их, используя описанные выше методы. Вместо этого вы можете развернуть следующие методы.
Способ 3: соедините ненужные строки или столбцы вместе
- Сначала выберите строку или столбец.
- Затем щелкните мышью и удерживайте.
- Перетащите мышь в нужное положение и отпустите.
- Затем выберите все tarполучить строки или столбцы и, используя вышеуказанные методы, удалить их.
Способ 4: запустить макрос для удаления нескольких непоследовательных строк
- Первый и первыйost, выберите строки.
- Нажмите «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: запустить макрос для удаления нескольких непоследовательных столбцов
- Прежде всего, выберите tarполучить столбцы с помощью клавиши «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