Note: The other languages of the website are Google-translated. Back to English

Как вставить один и тот же текст во все остальные строки в 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-день) этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.


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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

  • Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
  • Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
  • Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
  • Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.
вкладка kte 201905

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (4)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, код именно то, что мне было нужно. Один вопрос: у меня есть данные, которые я хочу повторять каждую вторую строку, но только для определенных строк, после чего начинается новая строка текста, которую я хочу повторять. Как изменить код, чтобы отразить остановку повтора в определенной строке?
Этот комментарий был сведен к минимуму модератором на сайте
СЛЕДУЙТЕ МОИМ ИНСТРУКЦИЯМ НА GOOGLE.COM
Этот комментарий был сведен к минимуму модератором на сайте
Большое спасибо за этот код VBA и другие. Они решили многие мои проблемы, работая с огромным набором данных!!
Этот комментарий был сведен к минимуму модератором на сайте
большое спасибо.
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL