Как найти и удалить несколько совпадений одновременно в Excel?
При работе с большими объемами данных в Excel крайне важно уметь мгновенно находить нужную информацию в любой момент. Именно тогда на помощь приходит функция «Найти и заменить»: она позволяет искать и выделять определённые значения или форматы по всему текущему листу или всей книге, а затем выполнять с найденными результатами требуемые действия — например, удалять или заменять их. Однако стандартный инструмент «Найти и заменить» в Excel позволяет искать только одно значение за раз. В этом руководстве я покажу быстрый способ поиска нескольких разных значений и их одновременного удаления в Excel.
Поиск и удаление нескольких совпадений одновременно с помощью VBA
Мы подготовили два кода VBA, которые помогут вам найти и мгновенно удалить все различающиеся значения в выбранном диапазоне или на нескольких листах. Следуйте приведённым ниже шагам и запускайте нужный код в зависимости от ваших задач.
1. В Excel нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. Выберите пункт Вставка > Модуль. Затем скопируйте один из приведённых ниже кодов VBA в окно Модуль.
Код VBA 1: поиск и удаление нескольких совпадений в Выберите диапазон одновременно
Sub FindAndDeleteDifferentValues_Range()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg As Range
Dim xURg As Range
Dim xFindRgs As Range
Dim xFAddress As String
Dim xBol As Boolean
Dim xJ
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
On Error Resume Next
Set xRg = Application.InputBox("Please select the search scope:", "Kutools for Excel", , Type:=8)
If xRg Is Nothing Then Exit Sub
xBol = False
For Each xARg In xRg.Areas
Set xFindRg = Nothing
Set xFindRgs = Nothing
Set xURg = Application.Intersect(xARg, xARg.Worksheet.UsedRange)
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End SubПримечание: В фрагменте кода xArrFinStr = Array(«sales», "9", «@») в 13-й строке замените «sales», "9", «@» на фактические значения, которые необходимо найти и удалить. Не забудьте заключить каждое значение в двойные кавычки и разделить их запятыми.
Код VBA 2: поиск и удаление нескольких совпадений сразу на нескольких листах
Sub FindAndDeleteDifferentValues_WorkSheets()
'Updated by ExtendOffice 20220823
Dim xRg As Range
Dim xFindStr As String
Dim xFindRg As Range
Dim xARg, xFindRgs As Range
Dim xWShs As Worksheets
Dim xWSh As Worksheet
Dim xWb As Workbook
Dim xURg As Range
Dim xFAddress As String
Dim xArr, xArrFinStr
Dim xI, xJ
Dim xBol As Boolean
xArr = Array("Sheet1", "Sheet2") 'Names of the sheets where to find and delete the values. Enclose each with double quotes and separate them with commas
xArrFinStr = Array("sales", "9", "@") 'Enter the values to delete, enclose each with double quotes and separate them with commas
'On Error Resume Next
Set xWb = Application.ActiveWorkbook
xBol = False
For xI = LBound(xArr) To UBound(xArr)
Set xWSh = xWb.Worksheets(xArr(xI))
Set xFindRg = Nothing
xWSh.Activate
Set xFindRgs = Nothing
Set xURg = xWSh.UsedRange
Set xFindRgs = Nothing
For Each xFindRg In xURg
For xJ = LBound(xArrFinStr) To UBound(xArrFinStr)
If xFindRg.Text = xArrFinStr(xJ) Then
xBol = True
If xFindRgs Is Nothing Then
Set xFindRgs = xFindRg
Else
Set xFindRgs = Application.Union(xFindRgs, xFindRg)
End If
End If
Next
Next
If Not xFindRgs Is Nothing Then
xFindRgs.ClearContents
End If
Next
If xBol Then
MsgBox "Successfully deleted."
Else
MsgBox "No results found."
End If
End Sub- В фрагменте кода xArr = Array("Sheet1", "Sheet2") в 15-й строке замените "Sheet1", "Sheet2" на фактические имена листов, в которых нужно найти и удалить значения. Не забудьте заключить каждое имя листа в двойные кавычки и разделить их запятыми.
- В фрагменте кода xArrFinStr = Array(«sales», "9", «@») в 16-й строке замените «sales», "9", «@» на фактические значения, которые необходимо найти и удалить. Не забудьте заключить каждое значение в двойные кавычки и разделять их запятыми.
3. Нажмите клавишу F5, чтобы запустить код VBA.Примечание: Если вы используете код VBA 1, появится диалоговое окно с запросом на выбор диапазона, в котором нужно найти и удалить значения. Вы также можете щёлкнуть вкладку листа, чтобы выбрать весь лист.
4. Появится диалоговое окно, показанное ниже, с сообщением о том, что код удалил указанные совпадения. Нажмите кнопку ОК, чтобы закрыть диалоговое окно.
5. Указанные значения были удалены одновременно.
Поиск и удаление нескольких совпадений одновременно с помощью функции Выбрать определенные ячейки
Kutools для Excel предлагает функцию Выбрать определенные ячейки, которая позволяет находить значения, соответствующие одному или двум заданным условиям, одновременно. Узнайте, как быстро находить и удалять несколько значений за один раз!
1. На вкладке Kutools в группе Редактирование нажмите кнопку Выбрать > Выбрать определенные ячейки.
- В поле Выберите ячейки в диапазонещелкните кнопку выбора диапазона
справа, чтобы указать диапазон,в котором следует найти и удалить значения.Примечание:Чтобы выполнить поиск по всему листу, щелкните вкладку листа. - В разделе Выбрать тип выберите параметр Ячейка.
- В разделе Указать типзадайте не более двух условий:
- Щелкните стрелку раскрывающегося списка слева, чтобы выбрать нужное отношение, например Содержит, Равно, Меньше, Начинается с и т. д.
- Введите значение в соответствующее поле в соответствии со своими потребностями.
- Укажите отношение между двумя условиями (если они есть): И или Или.
справа, чтобы указать диапазон,
3. Нажмите кнопку Ок, чтобы выбрать ячейки, соответствующие заданным условиям. После этого появится диалоговое окно с информацией о количестве найденных и выбранных ячеек.
4. Нажмите кнопку ОК. Затем нажмите клавишу DELETE, чтобы удалить все выбранные значения одновременно.
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
Демонстрация: поиск и удаление нескольких совпадений одновременно в Excel
Связанные статьи
Поиск, выделение, фильтрация, подсчет и удаление дубликатов в Excel
В Excel повторяющиеся данные могут появляться снова и снова — при ручном вводе, копировании из других источников или по другим причинам. Иногда дубликаты полезны и даже необходимы, но зачастую они приводят к ошибкам и недопониманию. В этой статье описаны эффективные способы быстро находить, выделять, фильтровать, подсчитывать и удалять дубликаты с помощью формул, правил условного форматирования, сторонних надстроек и других инструментов Excel.
Как сравнить два столбца и удалить совпадающие значения в Excel?
Если у вас есть два столбца или списка с дубликатами и вы хотите быстро сравнить их, найти совпадения и удалить их — как это сделать наиболее эффективно? В этой статье я покажу различные способы решения этой задачи в Excel.
Как удалить всё, кроме выбранного диапазона, в Excel?
В Excel мы можем быстро и напрямую удалить Выберите диапазон, но пробовали ли вы когда-нибудь удалить содержимое других ячеек, кроме Выберите диапазон? В этой статье я покажу несколько приемов, которые помогут вам быстро и легко решить эту задачу в Excel.
Как удалить все изображения в заданном диапазоне ячеек?
Если на вашем листе размещено множество изображений и вы хотите быстро удалить некоторые из них в пределах ограниченного диапазона, как это сделать?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек