Как найти и удалить сразу несколько совпадений в Excel?
При работе с большими данными в Excel очень важно иметь возможность быстро найти нужную информацию в любой момент. И именно тогда вам нужна функция «Найти и заменить», которая помогает вам находить и выделять определенные значения или форматы на активном листе или во всей книге, а затем делать с результатами то, что вы хотите, например, удалять или заменять их. Однако с помощью функции «Найти и заменить» в Excel вы можете найти только одно значение за раз. В этом уроке я покажу быстрый способ найти несколько разных значений и удалить их одновременно в Excel.
Найдите и удалите сразу несколько совпадений с помощью VBA
Мы создали два кода VBA, чтобы помочь вам найти несколько разных значений в выбранном диапазоне или на нескольких листах и немедленно удалить их. Пожалуйста, следуйте инструкциям ниже и запустите код в соответствии с вашими потребностями.
1. В Excel нажмите кнопку другой + 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 = Массив ("продажи", "9", "@") в 13-м ряду следует заменить "продажи", "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 = Массив ("Лист1", "Лист2") в 15-м ряду следует заменить "Лист1", "Лист2" с фактическими именами листов, где вы хотите найти и удалить значения. Не забудьте заключить каждое имя листа в двойные кавычки и разделить их запятыми.
- Во фрагменте xArrFinStr = Массив ("продажи", "9", "@") в 16-м ряду следует заменить "продажи", "9", "@" с фактическими значениями, которые вы хотите найти и удалить, не забудьте заключить каждое значение в двойные кавычки и разделить их запятыми.
3. Нажмите F5 для запуска кода VBA. Примечание: Если вы используете Код VBA 1, появится диалоговое окно с просьбой выбрать диапазон, в котором нужно найти и удалить значения. Вы также можете щелкнуть вкладку листа, чтобы выбрать весь лист.
4. Появится диалоговое окно, показанное ниже, с сообщением о том, что код удалил указанные совпадения. Нажмите OK для закрытия диалога.
5. Указанные значения были сразу удалены.
Находите и удаляйте сразу несколько совпадений с помощью функции «Выбор определенных ячеек».
Kutools for Excel предлагает Выбрать определенные ячейки чтобы найти значения, которые соответствуют одному или двум условиям, которые вы установили одновременно, пожалуйста, прочитайте, чтобы узнать, как быстро найти и удалить несколько значений одновременно.
1. На Кутулс в Редактирование группу, нажмите Выберите > Выбрать определенные ячейки.
- В Выберите ячейки в этом диапазоне нажмите кнопку выбора диапазона
справа указать диапазон от где найти и удалить значения. Примечание: Для поиска по всему листу щелкните вкладку листа. - В Тип выбора выберите Ячейка опцию.
- В Конкретный тип разделе, задайте не более двух условий:
- Щелкните стрелку раскрывающегося списка слева, чтобы выбрать нужное отношение, например Комплект, Равно, Менее, Начинается с, и т.д.
- Введите значение в соответствующее поле в соответствии с вашими потребностями.
- Укажите взаимосвязь между двумя условиями (если они есть): И, or Or.
3. Нажмите Ok чтобы выбрать ячейки, соответствующие заданным условиям. Появится диалоговое окно, сообщающее, сколько ячеек было найдено и выбрано.
4. Нажмите OK. Теперь нажмите кнопку УДАЛИТЬ чтобы сразу удалить выбранные значения.
Примечание: Для использования Выбрать определенные ячейки функция, на вашем компьютере должен быть установлен Kutools for Excel. Если у вас не установлен Kutools, нажмите здесь, чтобы скачать и установить. Профессиональная надстройка Excel предлагает 30-дневную бесплатную пробную версию без ограничений.
Найти и удалить сразу несколько совпадений В Excel
Статьи по теме
Найти, выделить, отфильтровать, подсчитать, удалить дубликаты в Excel
В Excel повторяющиеся данные возникают время от времени, когда мы записываем данные вручную, копируем данные из других источников или по другим причинам. Иногда дубликаты необходимы и полезны. Однако иногда повторяющиеся значения приводят к ошибкам или недопониманию. В этой статье будут представлены методы быстрого выявления, выделения, фильтрации, подсчета, удаления дубликатов по формулам, правилам условного форматирования, сторонним надстройкам и т. Д. В Excel.
Как сравнить два столбца и удалить совпадения в Excel?
Если у вас есть два столбца / списка, включая несколько дубликатов, теперь вы хотите сравнить их и выяснить совпадения, удалить их, как вы можете быстро решить? В этой статье я расскажу о различных способах помочь вам справиться с этим в Excel.
Как удалить все, кроме выбранных диапазонов в Excel?
В Excel мы можем быстро и напрямую удалить выбранные диапазоны, но пробовали ли вы когда-нибудь удалить другое содержимое ячеек, кроме выбранных диапазонов? В этой статье я расскажу о некоторых приемах, которые помогут вам быстро и легко решить эту задачу в Excel.
Как удалить все изображения в диапазоне ячеек?
Если на вашем листе есть несколько изображений, теперь вы хотите удалить некоторые из них в указанном диапазоне, как вы быстро с этим справитесь?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
