Как вставить или удалить часть строки в Excel?
В Excel легко вставить или удалить целую строку на листе. Но как вставить или удалить только часть строки с листа? Эта статья вам поможет.
Вставка или удаление части строки с помощью функции Вставить/Удалить ячейки
Вставка или удаление части строки с помощью кода VBA
Вставка или удаление части строки с помощью функции Вставить/Удалить ячейки
Например, вы хотите вставить или удалить часть строки в строке 5 с тремя ячейками, пожалуйста, сделайте следующее.
Вставка части строки
1. Выберите три ячейки в строке 5 (выбранные ячейки должны быть равны вставленным ячейкам), затем нажмите Вставить > Вставить ячейки на вкладке Главная. См. скриншот:
2. В диалоговом окне Вставить выберите опцию Сдвинуть ячейки вправо или Сдвинуть ячейки вниз, а затем нажмите кнопку ОК.
Затем часть строки с тремя ячейками будет вставлена, как показано на скриншоте ниже.
Удаление части строки
1. После выбора части строки, которую вы хотите удалить, нажмите Удалить > Удалить ячейки на вкладке Главная.
2. В диалоговом окне Удалить выберите Сдвинуть ячейки влево или Сдвинуть ячейки вверх по мере необходимости, а затем нажмите кнопку ОК. См. скриншот:
Затем выбранная часть строки будет удалена.
Раскройте магию Excel с Kutools AI
- Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
- Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формул: Легко разбирайтесь в сложных формулах.
- Перевод текста: Преодолейте языковые барьеры в ваших таблицах.
Вставка или удаление части строки с помощью кода VBA
Вы также можете применить следующие коды VBA для вставки или удаления части строки в Excel.
1. Выберите любую ячейку в определенной строке, куда вы хотите вставить частичные строки, затем нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте приведенный ниже код 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 для запуска кода, затем появится диалоговое окно Kutools для Excel, пожалуйста, введите необходимое количество строк и нажмите кнопку ОК.
Если вы введете 3 в поле, после нажатия кнопки ОК, три частичные строки с тремя столбцами будут вставлены в указанное место вашего листа.
Для удаления части строки вы можете запустить следующий код 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, напоминающее вам, сколько частичных строк вы хотите удалить, пожалуйста, введите число и нажмите кнопку ОК. Затем указанные частичные строки будут немедленно удалены.
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в Excel с помощью Kutools для Excel и ощутите эффективность на новом уровне. Kutools для Excel предлагает более300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы выбрать функцию, которая вам нужнее всего...
Office Tab добавляет вкладки в Office и делает вашу работу намного проще
- Включите режим вкладок для редактирования и чтения в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна вместо новых отдельных окон.
- Увеличьте свою продуктивность на50% и уменьшите количество щелчков мышью на сотни ежедневно!
Все надстройки Kutools. Один установщик
Пакет Kutools for Office включает надстройки для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro — идеально для команд, работающих в разных приложениях Office.
- Комплексный набор — надстройки для Excel, Word, Outlook и PowerPoint плюс Office Tab Pro
- Один установщик, одна лицензия — настройка занимает считанные минуты (MSI-совместимо)
- Совместная работа — максимальная эффективность между приложениями Office
- 30-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек