Перейти к основному содержанию

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

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

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


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

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

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

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

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


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

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

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

1. Нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте следующий код 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 for Excel в диалоговом окне выберите диапазон, который вы хотите удалить на нескольких листах, а затем щелкните значок OK .

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


Статьи по теме:

Лучшие инструменты для офисной работы

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

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

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have a multiple data in multiple sheets and I want to delete some data with specific code in all sheets. kindly suggest.
This comment was minimized by the moderator on the site
Hi Ranit Mehta,
I don't quite understand your question. In the post, we provided a piece of VBA code for deleting data in the same range in multiple worksheets. I am not sure if this meets your needs.
The code is as follows:
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
This comment was minimized by the moderator on the site
Muchas gracias por el aporte, me ahorro mucho tiempo de trabajo.Bendiciones.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations