Note: The other languages of the website are Google-translated. Back to English

Как удалить одни и те же строки или диапазоны на нескольких листах в 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 кнопку.

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


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


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (1)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Много gracias пор эль aporte, мне ahorro mucho tiempo де trabajo.Bendiciones.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL