Разбить текст ячейки (строки), содержащий разделитель, на строки макросом

@Фишка · Регистрация: 21.07.2015

Студворк — интернет-сервис помощи студентам

Необходимо разбить текст в ячейке (с разделителями "Alt+Enter") на отдельные строки

@Vlad999 · 21.07.2015, 16:03

вот код, пробуйте на черновике т.к. знания начальные, могу что то упустить, не учесть.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub vvv()
Dim i#, mas(), s, k#, j#, R#
Application.ScreenUpdating = False 'отключаем обновление экрана
R = Cells(Rows.Count, 1).End(xlUp).Row
For i = R To 2 Step -1
   s = Split(Cells(i, 1), Chr(10))
   If UBound(s) > 0 Then
     ReDim mas(1 To UBound(s) + 1, 1 To 6)
     For j = 1 To 6
         For k = 1 To UBound(s) + 1
         mas(k, j) = Split(Cells(i, j), Chr(10))(k - 1)
         Next
     Next
   Cells(i, 1).Resize(UBound(s), 1).EntireRow.Insert
   Cells(i, 1).Resize(UBound(mas), UBound(mas, 2)) = mas
   End If
Next
Application.ScreenUpdating = True
End Sub

@Фишка · 21.07.2015, 16:50 **[ТС]**

Спасибо, Vlad999!
....ничего у меня не получилось, т.к. я не программист, а просто пользователь.
макросы для меня - темный лес!

Добавлено через 8 минут
Слушайте, Vlad999, вот я балда

, всё получилось - и у Вас и у меня, я просто не заметила, как всё сработало

.
Всё работает - спасибо!!!

А то, я уж собралась делать всё обходными путями - через Word - копируешь в Word, а потом обратно в Excel - и всё разносится по строкам ))))))

@h8ga4nm1 · 05.09.2019, 12:06

Добрый день, Vlad999, подскажите, при запуске макроса выдаёт ошибку

"subscript out of range error 9"
на строке
mas(k, j) = Split(Cells(i, j), Chr(10))(k - 1)

Можете модифицировать код, чтобы результат был, как на скриншоте? (Сверху исходный текст, снизу необходимый результат?)

P.s. количество строк может варьироваться до 20

@h8ga4nm1 · 05.09.2019, 12:12

upd. изменил название файла на vvv ошибка пропала. Но при запуске макроса ничего не происходит.

@Vlad999 · 05.09.2019, 12:26

файл показываем.

@h8ga4nm1 · 05.09.2019, 13:23

вот файл.

@h8ga4nm1 · 06.09.2019, 18:46

Может кому пригодится
Необходимый столбец указывается в строке 5 (В данном случае столбец D)

После символа Chr(10) (ALT+ENTER) будет создана новая строка. При необходимости исправить на свой символ в строке 6

Исходный текст и необходимый результат видны в комментарии

Код макроса

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub NewRows()
    ActiveSheet.Copy after:=Sheets(Sheets.Count)
    Dim tmpArr As Variant
    Dim Cell As Range
    For Each Cell In Range("D1", Range("D2").End(xlDown))
        If InStr(1, Cell, Chr(10)) <> 0 Then
            tmpArr = Split(Cell, Chr(10))
 
            Cell.EntireRow.Copy
            Cell.Offset(1, 0).Resize(UBound(tmpArr), 1). _
                EntireRow.Insert xlShiftDown
 
            Cell.Resize(UBound(tmpArr) + 1, 1) = Application.Transpose(tmpArr)
        End If
    Next
    Application.CutCopyMode = False
End Sub

Новые блоги и статьи Все статьи Все блоги /
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .
Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .

@Фишка 0 / 0 / 0 Регистрация: 21.07.2015 Сообщений: 7

	Разбить текст ячейки (строки), содержащий разделитель, на строки макросом 21.07.2015, 13:18. Показов 16622. Ответов 7 Метки нет (Все метки) Необходимо разбить текст в ячейке (с разделителями "Alt+Enter") на отдельные строки 0

@Фишка 0 / 0 / 0 Регистрация: 21.07.2015 Сообщений: 7
	21.07.2015, 16:50 [ТС]
	Спасибо, Vlad999! ....ничего у меня не получилось, т.к. я не программист, а просто пользователь. макросы для меня - темный лес! Добавлено через 8 минут Слушайте, Vlad999, вот я балда , всё получилось - и у Вас и у меня, я просто не заметила, как всё сработало . Всё работает - спасибо!!! А то, я уж собралась делать всё обходными путями - через Word - копируешь в Word, а потом обратно в Excel - и всё разносится по строкам )))))) 0

@h8ga4nm1 0 / 0 / 0 Регистрация: 29.12.2015 Сообщений: 15
	05.09.2019, 12:06
	Добрый день, Vlad999, подскажите, при запуске макроса выдаёт ошибку "subscript out of range error 9" на строке mas(k, j) = Split(Cells(i, j), Chr(10))(k - 1) Можете модифицировать код, чтобы результат был, как на скриншоте? (Сверху исходный текст, снизу необходимый результат?) P.s. количество строк может варьироваться до 20 Миниатюры 0

@h8ga4nm1 0 / 0 / 0 Регистрация: 29.12.2015 Сообщений: 15
	05.09.2019, 12:12
	upd. изменил название файла на vvv ошибка пропала. Но при запуске макроса ничего не происходит. 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	05.09.2019, 12:26
	файл показываем. 0

Разбить текст ячейки (строки), содержащий разделитель, на строки макросом

Решение