Как удалить повторяющиеся строки в ворде
Перейти к содержимому

Как удалить повторяющиеся строки в ворде

  • автор:

Поиск и удаление повторений

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

    Выберите ячейки, которые нужно проверить на наличие повторений.

Примечание: В Excel не поддерживается выделение повторяющихся значений в области «Значения» отчета сводной таблицы.

Удаление дубликатов 1

Выберите Главная >условное форматирование >выделение правил ячеек >повторяющихся значений.

Удаление дубликатов 2

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

Удаление повторяющихся значений

При использовании функции Удалить дубликаты повторяющиеся данные удаляются без возможности восстановления. Чтобы случайно не потерять необходимые сведения, перед удалением повторяющихся данных рекомендуется скопировать исходные данные на другой лист.

    Выделите диапазон ячеек с повторяющимися значениями, который нужно удалить.

Совет: Перед попыткой удаления повторений удалите все структуры и промежуточные итоги из своих данных.

Удаление дубликатов 3

Выберите Данные >Удалить дубликаты, а затем в разделе Столбцы проверка или снимите флажок столбцов, в которых нужно удалить дубликаты.

Выделенные повторяющиеся значения

Например, на данном листе в столбце «Январь» содержатся сведения о ценах, которые нужно сохранить.

Удаление дубликатов 5

Поэтому флажок Январь в поле Удаление дубликатов нужно снять.

Примечание: Количество повторяющихся и уникальных значений, заданных после удаления, может включать пустые ячейки, пробелы и т. д.

Удалить строки, где имеются повторяющиеся символы

Добрый день.
Скажите, пожалуйста, как удалить из Word 2007 документа строки, где имеются буквы, которые на этой же строке повторяются.

Нужно удалить строки, AABG, ETYE, FFTT, т.к. там есть символы которые повторяются (только на строке, к другой строке отношения НЕ имеет).

Нужно это сделать автоматически, т.к. обрабатывать вручную 50 000 строк слишком долго и можно сделать ошибку.

P.S.: если есть другие программы, в которых это можно сделать, то я с радостью их загружу.

2 Ответ от Alex_Gur 31.10.2012 14:54:38

Re: Удалить строки, где имеются повторяющиеся символы

Проблематично! Боюсь, это не вполне относится к нашей компетенции. Ваша задача имеет отношение, скорее, к программам поиска и сортировки, чем к текстовому редактору.

> если есть другие программы, в которых это можно сделать, то я с радостью их загружу.
Обычно такую программу люди пишут самостоятельно (на Visual Basic или на C).

Предварительно нужно изучить различные методы поиска и выбрать из них наиболее эффективный.

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк — 41001162202962; на WebMoney — R581830807057.

3 Ответ от Вождь 31.10.2012 18:23:05

Re: Удалить строки, где имеются повторяющиеся символы

Можно помучиться поиском и заменой, если плясать от шаблона «([A-Z])[A-Z]@\1», но макросом будет проще:

Public Sub Macro() Dim R As Word.Range Dim N As Long Dim S As String ' готовим поиск Set R = ActiveDocument.Range(0, 0) With R.Find .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = Word.wdFindStop .MatchWildcards = True End With N = 0 S = "" StatusBar = "Поиск. " Application.ScreenUpdating = False ' две одинаковые буквы подряд R.Find.Text = "([A-Z])\1" GoSub sub_Find ' одинаковые буквы через другие R.Find.Text = "([A-Z])[A-Z]@\1" GoSub sub_Find S = "Операция успешно завершена." 1: Application.ScreenUpdating = True S = S & VBA.vbLf & VBA.vbLf S = S & "Удалено абзацев: " & CStr(N) StatusBar = "" MsgBox Prompt:=S Exit Sub sub_Find: R.SetRange Start:=0, End:=0 Do R.Find.Execute If R.Find.Found <> True Then Exit Do R.Expand Unit:=Word.wdParagraph On Error Resume Next R.Delete If Err.Number <> 0 Then S = "Поиск прерван из-зи ошибки!" GoTo 1 ' ошибка End If N = N + 1 Loop Return End Sub

Макросы под заказ и готовый пакет — mtdmacro.ru

Сообщений [ 3 ]

Страницы 1

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Похожие темы

  • Удалить нейзвестные повторяющиеся предложения.
  • Удалить символы, кроме..
  • Удалить строки в таблице с пустой ячейкой
  • Word как удалить текст в файле, закрыть и удалить макросом файл?
  • Повторяющиеся значения в документе
  • Отобрать и посчитать повторяющиеся записи
  • чертежные символы
  • Подстрочные символы

Удалить строки, где имеются повторяющиеся символы

Для пользователей, стремящихся оптимизировать свою работу, просто находкой стали, появившиеся в последнее время в сети мастер-классы по различным программам. На портале о Microsoft Office Word вы узнаете про: сохранить файл word в папку с заданным именем vba. Ведь знаний много не бывает.

Например, на форуме сайта Ворд Эксперт, разбираются такие тонкости работы в различных версиях Ворда, которые вряд ли вы бы освоили самостоятельно за небольшой промежуток времени. На портале о Microsoft Office Word вы узнаете про: абзац 5 знаков в ворде 7. Тут собрана лучшая коллекция макросов и шаблонов, советов по настройкам различных функций программы. На портале о Microsoft Office Word вы узнаете про: где в 7 ворде переносы. Обсуждаются нюансы различных версий.

Что радует, можно получить решение любой, самой сложной проблемы, оставив заявку в соответствующем разделе. Наш сайт о Microsoft Office Word даст ответ про: печать в ввиде брошюры в worde.

страницы

  • полезности word
  • книги и программы
  • о проекте
  • стать автором
  • реклама на сайте
  • правовая информация

авторство

© 2006 — 2016, Word Expert
Авторские права на все материалы, опубликованные на сайте WordExpert.ru (включая текст, иллюстрации, фотографии, подборку, расположение и т.п.), принадлежат администрации Word Expert, если не указано иное.

покупка

Как удалить повторяющиеся строки из таблицы в документе Word?

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

Удалить повторяющиеся строки из таблицы в Word

1. Поместите курсор на таблицу, из которой вы хотите удалить повторяющиеся строки, нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

doc удалить повторяющиеся строки table01

2. Нажмите Вставить > Модули для создания нового модуля.

3. Скопируйте приведенные ниже коды и вставьте их в новый Модули скрипты.

VBA: удалить повторяющиеся строки из таблицы в Word

Public Sub DeleteDuplicateRows2() 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word" Exit Sub End If Application.ScreenUpdating = False Set xDic = CreateObject("Scripting.Dictionary") If Selection.Information(wdWithInTable) Then Set xTable = Selection.Tables(1) For I = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(I).Range xStr = xRow.Text xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For J = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then xNum = xNum + 1 xTable.Rows(J).Delete End If Next I = I - xNum Else xDic.Add xStr, I End If Next Else For I = 1 To ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables(I) xNum = -1 xDic.RemoveAll For J = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(J).Range xStr = xRow.Text xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For KK = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then xNum = xNum + 1 xTable.Rows(KK).Delete End If Next J = J - xNum Else xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub

doc удалить повторяющиеся строки table02

doc удалить повторяющиеся строки table03

4. Нажмите F5 ключ для запуска кода, то все повторяющиеся строки будут удалены.

Внимание: Приведенный выше код чувствителен к регистру, если вы хотите удалить повторяющиеся строки без учета регистра, вы можете использовать следующий код:

Public Sub DeleteDuplicateRows2() 'UpdatebyExtendoffice20181011 Dim xTable As Table Dim xRow As Range Dim xStr As String Dim xDic As Object Dim I, J, KK, xNum As Long If ActiveDocument.Tables.Count = 0 Then MsgBox "This document does not have table(s).", vbInformation, "Kutools for Word" Exit Sub End If Application.ScreenUpdating = False Set xDic = CreateObject("Scripting.Dictionary") If Selection.Information(wdWithInTable) Then Set xTable = Selection.Tables(1) For I = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(I).Range xStr = UCase(xRow.Text) xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For J = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(J).Range.Text) And (J <> I) Then xNum = xNum + 1 xTable.Rows(J).Delete End If Next I = I - xNum Else xDic.Add xStr, I End If Next Else For I = 1 To ActiveDocument.Tables.Count Set xTable = ActiveDocument.Tables(I) xNum = -1 xDic.RemoveAll For J = xTable.Rows.Count To 1 Step -1 Set xRow = xTable.Rows(J).Range xStr = UCase(xRow.Text) xNum = -1 If xDic.Exists(xStr) Then ' xTable.Rows(I).Delete For KK = xTable.Rows.Count To 1 Step -1 If (xStr = xTable.Rows(KK).Range.Text) And (KK <> J) Then xNum = xNum + 1 xTable.Rows(KK).Delete End If Next J = J - xNum Else xDic.Add xStr, J End If Next Next End If Application.ScreenUpdating = True End Sub

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

Просмотр и редактирование нескольких документов Word / книг Excel с вкладками в Firefox, Chrome, Internet Explore 10!

Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, которая позволяет вам просматривать несколько документов Word или книг Excel в одном окне Word или Excel и легко переключаться между ними, щелкая их вкладки.
Нажмите, чтобы получить бесплатную пробную версию вкладки Office!

Как удалить повторяющиеся строки в ворде

Столкнулся с такой проблемой: нужно удалить в MS Word повторяющиеся строки. Ну, к примеру:
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N0123456789
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210
N9876543210,

а сделать нужно:

В EXecele — это элементарно: Данные-Удалить дубликаты, а вот как в Worde это сделать — вопрос!

Кто может подскажите!
Всю голову сломал.

Особый статус
Участник клуба
Регистрация: 24.11.2008
Сообщений: 1,535

Да уж. создать такой же инструмент в Word’е не просто!

Я вот вставил этот столбик в Excel — и далее по вашему рецепту.

Чтобы то же самое делать, не обращаясь к Excel’ю. ну это для фанатов ворда!

Последний раз редактировалось Sasha_Smirnov; 20.08.2011 в 01:29 .

Sasha_Smirnov
Посмотреть профиль
Найти ещё сообщения от Sasha_Smirnov

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *