Як видалити однакові рядки чи діапазони на декількох аркушах у Excel?
У цій статті рекомендується два способи одночасного видалення однакових рядків або діапазонів на декількох аркушах у програмі Excel. Будь ласка, виконайте наступне.
Видаліть однакові рядки або діапазони на декількох аркушах, групуючи всі аркуші
Видаліть однакові рядки або діапазони на декількох аркушах із кодами VBA
Видаліть однакові рядки або діапазони на декількох аркушах, групуючи всі аркуші
Легко згрупувати всі робочі аркуші, а потім одночасно видалити однакові рядки чи діапазони з цих аркушів.
1. Клацніть правою кнопкою миші на будь-якій вкладці аркуша поточної книги, а потім натисніть Виберіть Усі аркуші з меню, що клацне правою кнопкою миші.
2. Тепер вибрано всі аркуші. Якщо ви видалите певні рядки або діапазони на аркуші, ті самі рядки чи діапазони на інших аркушах видаляються разом.
3. Після видалення рядків або діапазонів на всіх аркушах клацніть правою кнопкою миші на вкладці аркуша, а потім клацніть Розгрупувати аркуші з меню правої кнопки миші, щоб розгрупувати всі аркуші.
Видаліть однакові рядки або діапазони на декількох аркушах із кодами VBA
Окрім вищезазначеного методу, ви можете запустити такі коди VBA, щоб видалити однакові рядки або діапазони на кількох робочих аркушах.
Видаліть однакові рядки на декількох аркушах
1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наступний код VBA у вікно коду.
Код VBA: Видалення однакових рядків на декількох аркушах у Excel
Sub bleh()
Dim xWs As Worksheet
Set xWs = ActiveSheet
ThisWorkbook.Worksheets.Select
Rows("4:5").Select
Selection.Delete
xWs.Select
End Subпримітки: У коді VBA 4: 5 означає, що рядки 4 та 5 будуть видалені з кількох аркушів у поточній книзі. Ви можете змінити їх на потрібний вам рядок.
3. прес F5 клавішу для запуску коду, тоді зазначені рядки негайно видаляються з усіх аркушів поточної книги.
Видаліть однакові діапазони на декількох аркушах
Для видалення однакових діапазонів з кількох аркушів ви можете спробувати наведений нижче код VBA.
Код VBA: Видаліть один і той же діапазон на декількох аркушах
Private Sub CommandButton2_Click()
Dim xRg As Range
Dim xTxt As String
Dim xWs As Worksheet
On Error Resume Next
Set xWs = ActiveSheet
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select the range you want to delete across multiple sheets:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
xRg.ClearContents
ThisWorkbook.Worksheets.Select
ActiveWindow.SelectedSheets.FillAcrossSheets xRg, xlFillWithContents
xWs.Select
End SubПісля копіювання та вставки коду VBA в модуль натисніть F5 клавіша для запуску коду, і в спливаючому вікні Kutools для Excel діалоговому вікні, виберіть діапазон, який ви видалите на кількох аркушах, а потім клацніть на OK кнопки.
Тепер значення комірок у цьому конкретному діапазоні негайно видаляються з усіх аркушів поточної книги.
Статті по темі:
- Як видалити рядки з відсутніми / порожніми значеннями в певних стовпцях Excel?
- Як видалити рядки, якщо комірка більша / менша за певне значення в Excel?
- Як видалити всі рядки, крім першого рядка заголовка в Excel?
- Як видалити всі рядки нижче певного рядка або активної комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
