Как вставить один и тот же текст во все остальные строки в Excel?
В этой статье мы покажем вам, как вставить один и тот же текст во все остальные строки Excel. Пожалуйста, просмотрите для более подробной информации.
Вставьте один и тот же текст в каждую строку с кодом VBA
Вставьте тот же текст во все остальные строки с помощью Kutools for Excel
Вставьте один и тот же текст в каждую строку с кодом VBA
Предположим, вы хотите вставить тексты «Имя», «Данные» и «Оценка» в каждую строку в определенном диапазоне, как показано на скриншоте ниже. Пожалуйста, попробуйте следующий код VBA.
1. На листе нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
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 for Excel
С помощью приведенного выше кода вы можете просто вставить текст в каждую строку. Как насчет вставки текста в каждую n строку в Excel? В этом разделе мы покажем вам Вставить строки заголовков полезности Kutools for Excel. С помощью этой утилиты вставка текста в каждую n строку больше не будет проблемой.
Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.
1. Нажмите Кутулс > Вставить > Вставить строки заголовков чтобы включить эту утилиту.
2. в Вставить строки заголовков диалоговое окно, вам необходимо:
Теперь указанный текст вставляется в каждую n строку в выбранном диапазоне.
Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!