Як вставити однаковий текст у кожен другий рядок у Excel?
У цій статті ми покажемо, як вставити один і той же текст у кожен другий рядок у Excel. Будь ласка, перегляньте докладнішу інформацію.
Вставте однаковий текст у кожен рядок із кодом VBA
Вставте той самий текст у кожен інший рядок за допомогою Kutools для Excel
Вставте однаковий текст у кожен рядок із кодом VBA
Припустимо, ви хочете вставити тексти «Ім'я», «Дані» та «Оцінка» в кожен рядок у певному діапазоні, як показано на знімку екрана нижче. Спробуйте наступний код VBA.
1. На аркуші натисніть інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для програми вікна.
2. клацання Insert > Модулі. Дивіться знімок екрана:
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 рядок більше не буде проблемою.
Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.
1. клацання Кутулс > Insert > Вставити рядки заголовків щоб увімкнути цю утиліту.
2 В Вставити рядки заголовків у діалоговому вікні потрібно:
Тепер зазначений текст вставляється в кожний n рядків у вибраному діапазоні.
Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
