Как удалить одинаковые строки или диапазоны на нескольких листах в Excel?
В этой статье рекомендуются два метода одновременного удаления одинаковых строк или диапазонов на нескольких листах в Excel. Пожалуйста, следуйте инструкциям ниже.
Удаление одинаковых строк или диапазонов на нескольких листах путем группировки всех листов
Удаление одинаковых строк или диапазонов на нескольких листах с использованием кодов VBA
Удаление одинаковых строк или диапазонов на нескольких листах путем группировки всех листов
Легко сгруппировать все рабочие листы, а затем удалить одинаковые строки или диапазоны из этих листов одновременно.
1. Щелкните правой кнопкой мыши по любой вкладке листа в текущей книге, затем выберите Выбрать все листы из контекстного меню.
2. Теперь все листы выбраны, если вы удалите определенные строки или диапазоны на одном листе, те же строки или диапазоны будут удалены и на других листах.
3. После удаления строк или диапазонов на всех листах щелкните правой кнопкой мыши по вкладке листа и выберите Разгруппировать листы из контекстного меню, чтобы разгруппировать все листы.
Удаление одинаковых строк или диапазонов на нескольких листах с использованием кодов 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.
Теперь значения ячеек в этом конкретном диапазоне будут немедленно удалены со всех листов в текущей книге.
Связанные статьи:
- Как удалить строки с отсутствующими/пустыми значениями в определенных столбцах в Excel?
- Как удалить строки, если значение ячейки больше/меньше определенного значения в Excel?
- Как удалить все строки, кроме первой строки заголовка в Excel?
- Как удалить все строки ниже определенной строки или активной ячейки в Excel?
Лучшие инструменты для повышения продуктивности работы с Office
Ускорьте работу в Excel с Kutools для Excel и ощутите новую степень эффективности. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени. Нажмите здесь, чтобы выбрать нужную вам функцию...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите редактирование и чтение с вкладками в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна, а не в отдельных окнах.
- Увеличьте свою продуктивность на50% и сократите сотни лишних кликов мышью каждый день!