Як вставити порожній рядок після певного тексту в Excel?
Якщо ви хочете вставити порожні рядки після певного тексту, як показано на наведеному нижче знімку екрана, як із цим швидко і легко боротися, не вставляючи їх один за одним вручну?
Вставте порожні рядки після конкретного тексту з кодом VBA
Вставте порожні рядки після конкретного тексту з кодом VBA
Ви можете застосувати наведений нижче код VBA, щоб вставити порожні рядки після потрібного тексту, будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.
Код VBA: Вставте порожні рядки після конкретного тексту
Sub Insertrowbelow()
'updateby Extendoffice
Dim i As Long
Dim xLast As Long
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the column with specific text:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count > 1) Then
MsgBox "the selected range must be one column", , "Kutools for Excel"
Exit Sub
End If
xLast = xRng.Rows.Count
For i = xLast To 1 Step -1
If InStr(1, xRng.Cells(i, 1).Value, "In progressing") > 0 Then
Rows(xRng.Cells(i + 1, 1).Row).INSERT shift:=xlDown
End If
Next
End Sub
примітки: У наведеному вище коді ви можете змінити текстове значення “Прогресує”До будь-яких інших значень, які ви бажали із сценарію Якщо InStr (1, xRng.Cells (i, 1) .Value, "In progressing))> 0 Тоді.
3. Потім натисніть F5 для запуску цього коду, у спливаючому діалоговому вікні виберіть дані стовпця, що містять конкретний текст, який ви хочете використовувати, див. знімок екрана:
4. А потім натисніть OK і пусті рядки були вставлені після певного тексту, який ви вказали, див. знімок екрана:
Більш відносні статті вставки рядків:
- Скопіюйте та вставте рядок кілька разів або продублюйте рядок X разів
- Чи намагалися ви у своїй щоденній роботі копіювати рядок або кожен рядок, а потім вставляти кілька разів нижче поточного рядка даних на аркуші? Наприклад, у мене є ряд комірок, тепер я хочу скопіювати кожен рядок і вставити їх 3 рази в наступний рядок, як показано на наступному знімку екрана. Як ви могли впоратися з цією роботою в Excel?
- Вставляйте порожні рядки при зміні значення в Excel
- Припустимо, у вас є діапазон даних, і тепер ви хочете вставити порожні рядки між даними, коли значення змінюється, щоб ви могли відокремити послідовні однакові значення в одному стовпці, як показано на наступних скріншотах. У цій статті я розповім про деякі трюки для вирішення цієї проблеми.
- Швидко вставте кілька рядків або стовпців у таблиці Google
- У цій статті я представив простий спосіб вставити декілька порожніх рядків або стовпців у аркуш google.
- Вставте порожній рядок над певним текстом у Excel
- Чи працювали ви над робочим аркушем чи намагались коли-небудь вставити порожній рядок над певним текстом у стовпці? Наприклад, є кілька імен у стовпці A, тепер я хочу вставити порожні рядки над клітинками, що містять ім’я “Майк”, як показано на лівому скріншоті, можливо, у вас немає прямого способу вирішити це завдання в Excel . У цій статті я розповім про кілька хороших прийомів для роботи з цією роботою в Excel.
Найкращі інструменти для підвищення продуктивності офісу
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
- Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
- Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
- Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
- Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
- Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
- Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
- Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
- Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
- Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!