Як видалити рядки над активною коміркою або певним текстом у 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
3. прес F5 клавішу, тоді рядки над активною коміркою були видалені. Дивіться знімок екрана:
Якщо ви хочете видалити рядки над вказаним текстом, ви можете використовувати нижче 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
Примітка:
1. У коді, Загальна група це текст, який ви хочете знайти, ви можете змінити його, як вам потрібно.
2. Якщо текст, який ви знайшли, вже був у першому рядку, з’явиться діалогове вікно з нагадуванням.
3. Якщо текст, який ви знайдете, не існує на аркуші, з’явиться діалогове вікно, як показано нижче, на екрані, щоб нагадати вам.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools for Excel, і відчуйте ефективність, як ніколи раніше. Kutools for Excel Пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Office Tab Надає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
