Перейти к содержимому

Как удалить одинаковые строки или диапазоны на нескольких листах в Excel?

Author: Siluvia Last Modified: 2025-06-05

В этой статье рекомендуются два метода одновременного удаления одинаковых строк или диапазонов на нескольких листах в Excel. Пожалуйста, следуйте инструкциям ниже.

Удаление одинаковых строк или диапазонов на нескольких листах путем группировки всех листов
Удаление одинаковых строк или диапазонов на нескольких листах с использованием кодов VBA


Удаление одинаковых строк или диапазонов на нескольких листах путем группировки всех листов

Легко сгруппировать все рабочие листы, а затем удалить одинаковые строки или диапазоны из этих листов одновременно.

1. Щелкните правой кнопкой мыши по любой вкладке листа в текущей книге, затем выберите Выбрать все листы из контекстного меню.

A screenshot of selecting all sheets from the right-click menu on a sheet tab in Excel

2. Теперь все листы выбраны, если вы удалите определенные строки или диапазоны на одном листе, те же строки или диапазоны будут удалены и на других листах.

3. После удаления строк или диапазонов на всех листах щелкните правой кнопкой мыши по вкладке листа и выберите Разгруппировать листы из контекстного меню, чтобы разгруппировать все листы.

A screenshot of ungrouping sheets after deleting rows or ranges


Удаление одинаковых строк или диапазонов на нескольких листах с использованием кодов VBA

Помимо вышеуказанного метода, вы можете запустить следующие коды VBA для удаления одинаковых строк или диапазонов на нескольких листах.

Удаление одинаковых строк на нескольких листах

1. Одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте следующий код VBA в окно Кода.

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.

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.

A screenshot of selecting a range to delete across multiple sheets in the Kutools dialog box

Теперь значения ячеек в этом конкретном диапазоне будут немедленно удалены со всех листов в текущей книге.


Связанные статьи:

Лучшие инструменты для повышения продуктивности работы с Office

🤖 Kutools AI Aide: Совершенно новый подход к анализу данных на основе: Интеллектуальное выполнение |  Генерация кода  |  Создание пользовательских формул |  Анализ данных и построение диаграмм  |  Вызов Расширенных функций Kutools
Популярные функции: Найти, выделить или отметить дубликаты | Удалить пустые строки | Объединить столбцы или ячейки без потери данных |   Округлить без формулы ...
Супер ПОИСК: VLOOKUP по нескольким критериям | VLOOKUP с несколькими значениями | Многолистовой поиск | Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскрывающийся список | Зависимый раскрывающийся список | Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определённое количество столбцов | Переместить столбцы | Переключить видимость скрытых столбцов | Сравнить диапазоны и столбцы ...
Избранные функции: Сетка фокусировки | Дизайн листа | Улучшенная строка формулы | Управление книгами и листами | Библиотека автотекста | Выбор даты | Объединить данные | Шифрование/расшифровка ячеек | Отправить письмо по списку | Супер фильтр | Специальный фильтр (фильтр ячеек с жирным/курсивом/зачёркнутым...) ...
Топ-15 наборов инструментов:12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...) |50+ типов диаграмм (Диаграмма Ганта, ...) |40+ практических формул (Расчет возраста на основе даты рождения, ...) |19 инструментов вставки (Вставить QR-код, Вставить изображение по пути, ...) |12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...) |7 инструментов для объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...) | ... и многое другое

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


Office Tab добавляет вкладки в Office и делает вашу работу намного проще

  • Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!