Як вставити або видалити частковий рядок у Excel?
В Excel легко вставити або видалити цілий рядок із аркуша. Але як вставити або видалити з аркуша лише частковий рядок? Ця стаття вам допоможе.
Вставити або видалити частковий рядок за допомогою функції Вставити / Видалити клітинки
Вставте або видаліть частковий рядок із кодом VBA
Вставити або видалити частковий рядок за допомогою функції Вставити / Видалити клітинки
Наприклад, якщо ви хочете вставити або видалити частковий рядок у рядку 5 з трьома клітинками, будь-ласка, виконайте наступне.
Вставити частковий рядок
1. Виберіть три комірки в рядку 5 (виділені комірки повинні дорівнювати вставленим коміркам), а потім клацніть Insert > Вставте комірки при Головна вкладку. Дивіться знімок екрана:
2 В Insert діалогове вікно, виберіть Змістити клітинки вправо or Змістити клітинки вниз а потім натисніть кнопку OK кнопки.
Потім вставляється частковий рядок із трьома клітинками, як показано нижче.
Видалити частковий рядок
1. Вибравши частковий рядок, який потрібно видалити, натисніть Видалити> Видалити клітини при Головна Вкладка.
2 В видаляти діалогове вікно, виберіть Зміщення комірок ліворуч or Змістити клітинки вгору як вам потрібно, а потім клацніть на OK кнопку. Дивіться знімок екрана:
Потім вибраний частковий рядок видаляється.
Вставте або видаліть частковий рядок із кодом VBA
Ви також можете застосувати такі коди VBA, щоб вставити або видалити частковий рядок у Excel.
1. Виберіть будь-яку комірку у певному рядку, куди потрібно вставити часткові рядки, а потім натисніть інший + F11 відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. А потім скопіюйте та вставте наведений нижче код VBA в код вікна.
Код VBA: Вставте частковий рядок у Excel
Sub InsertRow()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox "Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Insert xlDown
End Sub
примітки: У коді VBA число 1 означає, що частковий рядок буде вставлено з першого стовпця, а число 3 означає, що він вставить три клітинки між стовпцями. Ви можете змінити їх відповідно до своїх потреб.
3 Натисніть кнопку F5 клавіша для запуску коду, потім a Kutools для Excel спливає діалогове вікно, введіть необхідну кількість необхідних рядків, а потім клацніть на OK кнопки.
Якщо ви введете 3 у поле, клацніть на OK Кнопка, три часткові рядки з трьома стовпцями будуть вставлені у вказане положення вашого аркуша.
Для видалення часткового рядка ви можете запустити наведений нижче код VBA.
Код VBA: Видалити частковий рядок у Excel
Sub DelActiveCell_Row()
Dim I As Long
On Error Resume Next
LInput:
I = Application.InputBox("Enter number of rows required.", "Kutools for Excel", 1, , , , , 1)
If I < 1 Then
MsgBox " Error, please retype", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Cells(ActiveCell.Row, 1).Resize(Int(I), 3).Delete xlShiftUp
End Sub
Після запуску коду також існує файл Kutools для Excel спливає діалогове вікно, щоб нагадати вам, скільки часткових рядків ви хочете видалити, введіть номер і натисніть на OK кнопку. Потім зазначені часткові рядки негайно видаляються.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!