Быстрое удаление Дублирующий столбец из таблицы Word (3 методов)

При работе с таблицами в Microsoft Word вы можете заметить, что некоторые столбцы содержат абсолютно одинаковые данные. Эти дублирующиеся столбцы делают таблицу шире, чем необходимо, и усложняют её управление. Поскольку Word не предоставляет встроенного инструмента для автоматического удаления дублирующихся столбцов, их идентификация и удаление вручную могут занять значительное время и усилия, особенно в больших таблицах.

В этом руководстве вы узнаете три эффективных способа удаления полностью идентичных столбцов в таблицах Word. Мы начнём с обходного метода, использующего транспонирование в Excel, затем покажем, как удалять дубликаты прямо в Word с помощью Kutools, и, наконец, продемонстрируем применение макроса VBA для автоматической очистки. Выберите тот метод, который лучше всего подходит именно вам.

• Метод 1: удаление Дублирующий столбец с помощью Excel
• Метод 2: удаление Дублирующий столбец с помощью Kutools для Word
• Метод 3: удаление Дублирующий столбец с помощью VBA

Удаление Дублирующий столбец с помощью Excel (обходной путь через транспонирование)

Этот метод подходит пользователям, имеющим доступ к Excel. С помощью команды Данные > Удалить дубликаты Excel может удалять дублирующиеся строки. Поскольку Excel работает со строками, а не со столбцами, сначала необходимо транспонировать таблицу — чтобы столбцы превратились в строки, удалить дубликаты, а затем снова транспонировать данные обратно в исходный вид:

Office Tab

Вкладки для Word, Excel, PowerPoint и других приложений — как в веб-браузере: удобно переключайтесь между ними в одном окне.

Бесплатная загрузкаПодробнее

1. Наведите курсор мыши на таблицу с дубликатами, чтобы в левом верхнем углу появился маркер перемещения, затем щёлкните по нему, чтобы выделить всю таблицу.

   

2. Нажмите Ctrl + C, чтобы скопировать таблицу.
3. Откройте Excel, щёлкните по пустой ячейке и нажмите Ctrl + V, чтобы вставить таблицу.
4. Выделите вставленную таблицу в Excel и снова нажмите Ctrl + C, чтобы скопировать её.
   • Скопируйте таблицу ещё раз — Excel должен распознать её как собственный диапазон на листе, прежде чем опция Транспонировать станет доступной.
5. Щёлкните правой кнопкой мыши по другой пустой ячейке, выберите Вставить специально>Транспонировать(опцию «)Транспонировать» можно найти в двух местах, как показано ниже).

   

   • Это преобразует исходные столбцы в строки, чтобы Excel мог корректно распознать дублирующий столбец.
6. Выделите транспонированные данные и перейдите в меню Данные>Удалить дубликаты.

   

7. В диалоговом окне снимите флажок Включить заголовки, затем нажмите ОК, чтобы удалить Дублирующая строка из транспонированных данных.

   

8. Скопируйте очищенные данные (диапазон H1:L4 на скриншоте ниже), щёлкните правой кнопкой мыши по пустой ячейке и снова используйте команду Вставить специально>Транспонировать, чтобы восстановить исходную ориентацию.

   

9. Скопируйте окончательный результат и вставьте его обратно в Word.

   

Удаление Дублирующий столбец с помощью Kutools для Word

Если у вас установлен Kutools для Word, это самый эффективный и удобный способ удаления дублирующих столбцов. С Kutools вы можете удалять дублирующие столбцы прямо в Word — будь то в текущей таблице, выбранных таблицах или во всех таблицах активного документа. Не нужно копировать таблицу в Excel или прибегать к обходным решениям — этот метод оказывается самым быстрым и практичным.

1. Выберите конкретные таблицы, из которых следует удалить дублирующий столбец. Пропустите этот шаг, если планируете обработать все таблицы в активном документе.
2. Нажмите KUTOOLS PLUS>Таблица>Удалить пустые строки/столбцы.

   

3. В диалоговом окне:
   1. Установите Искать вв одно из следующих значений:
      • Выбранные таблицы, если вы хотите обработать только выбранные таблицы.
      • Все таблицы в активном документе, если вы хотите обработать каждую таблицу в документе.
   2. Выберите столбец.
   3. Выберите Дублирующий столбец.
   4. Нажмите ОКчтобы удалить Дублирующий столбец.

      

Все полностью идентичные столбцы удаляются либо из выбранной таблицы, либо из всех таблиц в активном документе — в зависимости от выбранного варианта.

Удаление Дублирующий столбец с помощью VBA

Если вы регулярно работаете с большими таблицами и вам приходится удалять дублирующиеся столбцы более одного раза, макрос VBA поможет сэкономить время. Он автоматически сравнивает столбцы и удаляет полностью идентичные, избавляя вас от необходимости вручную проверять данные.

1. Щёлкните внутри таблицы в Word, которую нужно обработать.
2. Нажмите Alt + F11, чтобы открыть редактор VBA.
3. Нажмите Вставка>Модуль.

   

4. Вставьте приведённый ниже код в модуль.

   Sub RemoveDuplicateColumnsInSelectedTable()
       Dim tbl As Table
       Dim c1 As Long, c2 As Long
       Dim r As Long
       Dim isDup As Boolean
   
       If Selection.Information(wdWithInTable) = False Then
           MsgBox "Place the cursor inside the table first."
           Exit Sub
       End If
   
       Set tbl = Selection.Tables(1)
   
       For c1 = tbl.Columns.Count To 2 Step -1
           For c2 = c1 - 1 To 1 Step -1
   
               isDup = True
   
               For r = 1 To tbl.Rows.Count
                   If CleanCellText(tbl.Cell(r, c1).Range.Text) <> CleanCellText(tbl.Cell(r, c2).Range.Text) Then
                       isDup = False
                       Exit For
                   End If
               Next r
   
               If isDup Then
                   tbl.Columns(c1).Delete
                   Exit For
               End If
           Next c2
       Next c1
   
       MsgBox "Done. Duplicate columns removed."
   End Sub
   
   Private Function CleanCellText(ByVal s As String) As String
       s = Replace(s, Chr(13), "")
       s = Replace(s, Chr(7), "")
       CleanCellText = Trim$(s)
   End Function

5. Нажмите F5, чтобы запустить макрос.
6. Появится диалоговое окно с подтверждением:Готово. Дублирующий столбец удалён. Нажмите ОК, чтобы закрыть сообщение.

   

Все полностью идентичные столбцы в выбранной таблице автоматически удаляются, благодаря чему в таблице Word остаются только уникальные столбцы.

Какой метод подходит вам лучше всего?