Как вставить одинаковый текст в каждую вторую строку в Excel?
В этой статье мы покажем вам, как вставить одинаковый текст в каждую вторую строку в Excel. Читайте дальше для получения дополнительной информации.
Вставка одинакового текста в каждую строку с помощью кода VBA
Вставка одинакового текста в каждую вторую строку с помощью Kutools для Excel
Вставка одинакового текста в каждую строку с помощью кода VBA
Предположим, вы хотите вставить текст «Имя», «Дата» и «Оценка» в каждую вторую строку в пределах указанного диапазона, как показано на скриншоте ниже. Пожалуйста, попробуйте следующий код VBA.
1. В листе одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Application.
2. Нажмите Вставить > Модуль. См. скриншот:
3. Скопируйте и вставьте приведенный ниже код VBA в редактор кода.
Код VBA: вставка одинакового текста в каждую строку в Excel
Sub inserttexteveryonerow()
Dim Last As Integer
Dim emptyRow As Integer
Last = Range("A" & Rows.Count).End(xlUp).Row
For emptyRow = Last To 2 Step - 1
If Not Cells(emptyRow, 1).Value = "" Then
Rows(emptyRow).Resize(1).Insert
Range(Cells(emptyRow, "A"), Cells(emptyRow, "C")).Value = Array("Name", "Date", "Sore")
End If
Next emptyRow
End Sub
Примечания: В приведенном выше коде:
Вставка одинакового текста в каждую вторую строку с помощью Kutools для Excel
С помощью приведенного выше кода вы можете вставить текст только в каждую строку. Как насчет вставки текста в каждую n-ю строку в Excel? В этом разделе мы покажем вам функцию Вставить заголовочные строки из Kutools для Excel. С помощью этой утилиты вставка текста в каждую n-ю строку становится простой.
1. Нажмите Kutools > Вставить > Вставить заголовочные строки, чтобы активировать эту утилиту.
2. В диалоговом окне Вставить заголовочные строки вам нужно:
Теперь указанный текст вставлен в каждую n-ю строку в выбранном диапазоне.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Лучшие инструменты для повышения продуктивности в 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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек