Як видалити рядки, що не відповідають критеріям, на іншому аркуші?
Вам може бути не складно видалити рядки, які не відповідають критеріям на одному аркуші, але чи знаєте ви будь-які способи видалення рядків, що не відповідають критеріям, на іншому аркуші, як показано нижче. Зараз у мене є дві хитрощі, які можуть допомогти вам швидко вирішити це.
Видаліть рядки, що не відповідають критеріям, на іншому аркуші за допомогою VBA
Видаліть рядки, які не відповідають критеріям, на іншому аркуші за допомогою Kutools для Excel
Критерії (у аркуші 2) | До (аркуш 1) | Після (Аркуш1) |
Видаліть рядки, що не відповідають критеріям, на іншому аркуші за допомогою VBA
Існує код VBA, який може допомогти вам видалити рядки, що не відповідають критеріям, на іншому аркуші.
1. прес Alt + F11 щоб відобразити Microsoft Visual Basic для додатків вікна.
2. У вікні натисніть Insert > Модулі щоб показати нове вікно модуля, скопіюйте наступний код VBA у вікно модуля.
VBA: Видаліть рядки, що не відповідають критеріям, на іншому аркуші в Excel.
Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
xKey = arr2(i, 1)
dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
xKey = arr1(i, 1)
If dic2.Exists(xKey) Then
OutArr(xIndex, 1) = xKey
xIndex = xIndex + 1
End If
Next
Rng1.Value = OutArr
End Sub
3. клацання прогін, то Kutools для Excel спливає діалогове вікно для вибору діапазону, який потрібно видалити, рядки, які не відповідають критеріям. Дивіться знімок екрана:
4. клацання OK, і з’явиться інше діалогове вікно для вибору критеріїв на іншому аркуші, див. знімок екрана:
5. Тепер усі рядки, що не відповідають критеріям на іншому аркуші, видаляються.
Видаліть рядки, які не відповідають критеріям, на іншому аркуші за допомогою Kutools для Excel
Якщо код VBA для вас трохи складний, ви можете спробувати функцію порівняння діапазонів Kutools for Excel.
Kutools для Excel включає більше 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень протягом 30 днів. Отримати зараз
1. Виберіть аркуш, який потрібно видалити, рядки, які не відповідають критеріям. І клацніть Кутулс > Порівняйте діапазони. Дивіться знімок екрана:
2 В Порівняйте діапазони , натисніть кнопку в Діапазон B, а потім ви можете вибрати діапазон критеріїв, який вам потрібен. Дивіться знімок екрана:
3 Потім натисніть OK, потім поверніться до Порівняйте діапазони діалогове вікно, перевірте Різне значення та Виділіть цілі рядки. Дивіться знімок екрана:
4. клацання Ok, і вийдіть з Порівняйте діапазони діалогове вікно. Потім ви бачите рядки значень, які відрізняються від обраних критеріїв.
5. Клацніть правою кнопкою миші, щоб клацнути видаляти з контекстного меню, щоб видалити рядки, які не відповідають критеріям на іншому аркуші.
Натисніть тут, щоб дізнатися більше про діапазони порівняння Kutools for Excel.
Відносні статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!