Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як видалити рядки над активною коміркою або певним текстом у Excel?

Якщо є величезний аркуш із декількома рядками, і ви просто хочете видалити всі рядки над активною коміркою або певним текстом, як ви можете з цим впоратися? Ви можете видалити рядки, вибравши їх, а потім клацніть правою кнопкою миші, щоб вибрати Видалити з контекстного меню вручну. Але тут у мене є код VBA для швидкого видалення рядків вище, якщо вас це цікавить, прочитайте нижче детальну інформацію.

Видаліть наведені вище рядки з кодами VBA


стрілка синя права міхур Видаліть наведені вище рядки з кодами VBA

Тут я представляю вам два коди VBA, один - це видалення рядків над активним (вибрана комірка), інший - видалення рядків над вказаним текстом.

1. Виділіть клітинку, яку потрібно видалити над ним, і натисніть Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі, і вставте код нижче в Модулі сценарій

VBA: Видалити рядки над активною коміркою

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

 

doc видалити рядки вище 1

3. прес F5 клавішу, тоді рядки над активною коміркою були видалені. Дивіться знімок екрана:
doc видалити рядки вище 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

doc видалити рядки вище 3

Примітка:

1. У коді, Загальна група це текст, який ви хочете знайти, ви можете змінити його, як вам потрібно.

2. Якщо текст, який ви знайшли, вже був у першому рядку, з’явиться діалогове вікно з нагадуванням.
doc видалити рядки вище 4

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

 

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

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

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.