Перейти до основного матеріалу

Як знайти та видалити кілька збігів одночасно в Excel?

Працюючи з великими даними в Excel, дуже важливо мати можливість швидко знайти потрібну інформацію в будь-який конкретний момент. І саме тоді вам знадобиться функція «Знайти та замінити», яка допоможе вам знайти та виділити певні значення чи формати на активному аркуші чи всій робочій книзі, а потім робити з результатами те, що ви хочете, скажімо, видаляти чи замінювати їх. Однак за допомогою функції «Знайти та замінити» в Excel ви можете знайти лише одне значення за раз. У цьому підручнику я розповім про швидкий спосіб знайти кілька різних значень і видалити їх одночасно в Excel.


Знайдіть і видаліть кілька збігів одночасно за допомогою VBA

Ми створили два коди VBA, щоб допомогти вам знайти кілька різних значень у вибраному діапазоні або на кількох аркушах і негайно видалити їх. Виконайте наведені нижче дії та запустіть код відповідно до ваших потреб.

1. У програмі Excel натисніть інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі. Потім скопіюйте один із наведених нижче кодів 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 для Excel пропонує Виберіть певні клітини для пошуку значень, які відповідають одній або двом умовам, які ви встановили одночасно, прочитайте далі, щоб дізнатися, як швидко знайти та видалити кілька значень одночасно.

1 На Кутулс вкладка, в Редагування групу клацніть Select > Виберіть певні клітини.

2. У спливаючому вікні Виберіть певні клітини діалогове вікно, будь-ласка, зробіть наступне:
  • У Виділіть клітинки цього діапазону натисніть кнопку вибору діапазону праворуч, щоб вказати діапазон від де знайти та видалити значення. Примітка: Для пошуку по всьому аркушу клацніть вкладку аркуша.
  • У Тип вибору розділ, виберіть Осередок варіант.
  • У Конкретний тип розділі, встановіть не більше двох умов:
    • Клацніть стрілку спадного меню ліворуч, щоб вибрати потрібний зв’язок, наприклад Містить, Так само, Менш, Починається з, І т.д.
    • Введіть значення у відповідному полі відповідно до ваших потреб.
    • Вкажіть зв’язок між двома умовами (якщо є): і or Or.

3. клацання Ok щоб вибрати комірки, які відповідають встановленим вами умовам. З’явиться діалогове вікно з інформацією про кількість знайдених і виділених клітинок.

4. клацання OK. Тепер натисніть DELETE клавішу для видалення вибраних значень одразу.

Примітка: Для використання Виберіть певні клітини на вашому комп’ютері має бути встановлено Kutools для Excel. Якщо у вас не встановлено Kutools, натисніть тут, щоб завантажити та встановити. Професійна надбудова Excel пропонує 30-денну безкоштовну пробну версію без обмежень.


Знайдіть і видаліть кілька збігів одночасно в Excel


Статті по темі

Знайти, виділити, відфільтрувати, порахувати, видалити дублікати в Excel

В Excel повторювані дані виникають раз за разом, коли ми записуємо дані вручну, копіюємо дані з інших джерел або з інших причин. Іноді дублікати необхідні та корисні. Однак іноді повторювані значення призводять до помилок або непорозумінь. Тут ця стаття представить методи швидкого виявлення, виділення, фільтрування, підрахунку, видалення дублікатів за формулами, правил умовного форматування, надбудов сторонніх розробників тощо в Excel.

Як порівняти два стовпці та видалити збіги в Excel?

Якщо у вас є дві колонки / списки, включаючи кілька дублікатів, тепер ви хочете порівняти їх і з’ясувати збіги, видалити їх, як швидко вирішити? У цій статті я представляю різні способи, які допоможуть вам впоратися з цим в Excel.

Як видалити всі діапазони, крім вибраних, у Excel?

В Excel ми можемо швидко та безпосередньо видалити вибрані діапазони, але чи намагалися ви коли-небудь видаляти інший вміст комірок, крім вибраних діапазонів? У цій статті я представив вам кілька прийомів для швидкого та простого вирішення цього завдання в Excel.

Як видалити всі зображення в діапазоні клітинок?

Якщо на вашому аркуші є кілька зображень, тепер ви хочете видалити деякі з них у визначеному діапазоні. Як ви швидко з цим справитесь?

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations