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

Как удалить строки над активной ячейкой или конкретным текстом в Excel?

Если существует огромный рабочий лист с несколькими строками, и вы просто хотите удалить все строки над активной ячейкой или конкретным текстом, как вы можете с этим справиться? Вы можете удалить строки, выбрав их, а затем щелкнув правой кнопкой мыши, чтобы выбрать Удалить из контекстного меню вручную. Но здесь у меня есть коды VBA для быстрого удаления строк выше, если вам это интересно, прочтите подробности ниже.

Удалите строки выше с кодами VBA


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

Здесь я представляю вам два кода VBA: один - удалить строки над активной (выбранной ячейкой), другой - удалить строки над указанным текстом.

1. Выберите ячейку, над которой вы хотите удалить строки, и нажмите Alt + F11 ключи для открытия Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и вставьте ниже код в Модули скрипты.

VBA: удалить строки над активной ячейкой

Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub

 

документ удалить строки выше 1

3. Нажмите F5 key, то строки над активной ячейкой были удалены. Смотрите скриншот:
документ удалить строки выше 2

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

VBA: удалить строки над указанным текстом

Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
    Dim fRg As Range
    
    Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
    
    If Not fRg Is Nothing Then
        If fRg.Row <> 1 Then
            Range("A1", fRg.Offset(-1)).EntireRow.Delete
        Else
            MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
        End If
    Else
       MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
    End If
    
End Sub

документ удалить строки выше 3

Примечание:

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

2. Если найденный текст уже был в первой строке, появится диалоговое окно с напоминанием.
документ удалить строки выше 4

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

 

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

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

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

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

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

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

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