Перейти к основному содержанию

Как вставить один и тот же текст во все остальные строки в 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

Заметки: В приведенном выше коде:

1. Ваши данные должны начинаться с первой строки на листе.
2. Измените тексты «Имя», «Данные» и «Оценка» на нужные вам тексты.
3. Буквы A и C указывают диапазон ячеек, в который вы хотите вставить определенный текст.
4. нажмите F5 ключ для запуска кода. И вы можете видеть, что указанные тексты добавляются в каждую строку вашего рабочего листа.

Вставьте тот же текст во все остальные строки с помощью Kutools for Excel

С помощью приведенного выше кода вы можете просто вставить текст в каждую строку. Как насчет вставки текста в каждую n строку в Excel? В этом разделе мы покажем вам Вставить строки заголовков полезности Kutools for Excel. С помощью этой утилиты вставка текста в каждую n строку больше не будет проблемой.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Нажмите Кутулс > Вставить > Вставить строки заголовков чтобы включить эту утилиту.

2. в Вставить строки заголовков диалоговое окно, вам необходимо:

1). Выберите диапазон текстов, которые вы хотите вставить в каждую n строку в Диапазон заголовков коробка;
2). Выберите диапазон, в который нужно вставить текст в Вставить диапазон коробка;
3). Укажите номер строки интервала в Интервальные строки коробка. Если вы хотите вставить текст в каждую строку, введите 1 в поле, а для каждой n строки введите n в поле;
4). Щелкните значок OK .

Теперь указанный текст вставляется в каждую n строку в выбранном диапазоне.

  Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Лучшие инструменты для офисной работы

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
thanks you so much.
This comment was minimized by the moderator on the site
Thank you so much for this VBA code and other. They have solved many of my problems, working with a huge data set!!
This comment was minimized by the moderator on the site
Thank you, the code was exactly what I needed. One question, I have data that I want repeated every other row but only to specific rows then a new string of text starts that I want repeated. How to I change the code to reflect stopping the repeat at a specific row?
This comment was minimized by the moderator on the site
FOLLOW MY INSTRUCTION ON GOOGLE.COM
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations