Как да вмъкна същия текст във всеки друг ред в Excel?
В тази статия ще ви покажем как да вмъкнете същия текст във всеки друг ред в Excel. Моля, прегледайте за повече подробности.
Вмъкнете един и същ текст във всеки ред с VBA код
Вмъкнете същия текст във всеки друг ред с Kutools за 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 за Excel
С горния код можете просто да вмъкнете текст във всеки един ред. Какво ще кажете за вмъкване на текст във всеки n ред в Excel? В този раздел ще ви покажем Вмъкване на редове със заглавия полезност на Kutools за Excel. С тази помощна програма вмъкването на текст във всеки n ред вече няма да е проблем.
Преди да кандидатствате Kutools за Excel, Моля те първо го изтеглете и инсталирайте.
1. кликване Kutools > Поставете > Вмъкване на редове със заглавия за да активирате тази помощна програма.
2. В Вмъкване на редове със заглавия диалогов прозорец, трябва да:
Сега посоченият текст се вмъква във всеки n ред в избрания диапазон.
Ако искате да имате безплатен пробен период (30 дни) на тази помощна програма, моля, щракнете, за да го изтеглитеи след това преминете към прилагане на операцията съгласно горните стъпки.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!