текст через запятую из одной ячейки перенести в столбец

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

текст через запятую из одной ячейки перенести в столбец (Макросы/Sub)

ovechkin1973

Дата: Четверг, 14.12.2017, 20:30 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Всем привет.. есть лист в экселе на котором в одну ячейку занесено много данных разделенных запятой. Очень нужно, чтобы эти данные были в персональной ячейке и самое главное должны сами добавиться строки под выделенной ячейкой, из которой нужно данные разбить и вставляться в ячейки этого же столбца ниже. Разделитель запятая при этом должен удалиться. Пример прилагаю. На одном листе как занесены данные, на другом как хотелось бы их видеть после обработки макросом

К сообщению приложен файл: na_forum.xlsx (11.2 Kb)

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Сообщение отредактировал ovechkin1973 - Четверг, 14.12.2017, 20:32

Ответить

RAN

Дата: Четверг, 14.12.2017, 20:41 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ищите Мяу, или Мяв.
Один из макросов содержит ответ (текст по строкам)

Быть или не быть, вот в чем загвоздка!

Ответить

ovechkin1973

Дата: Четверг, 14.12.2017, 20:45 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 429

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Цитата RAN, 14.12.2017 в 20:41, в сообщении № 2 ()

Ищите Мяу, или Мяв

Уважаемый RAN, не совсем понял рекомендацию.. искать по этим словам в темах на этом форуме?

Плохо когда не знаешь, да еще забудешь. Правильно сформулированный вопрос содержит половину ответа.

Ответить

RAN

Дата: Четверг, 14.12.2017, 21:09 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Именно.

Макросы с такими именами на этом форуме найти можно, по "название темы должно отражать суть вопроса" - 150% не найдете.

Быть или не быть, вот в чем загвоздка!

Ответить

maonang

Дата: Четверг, 14.12.2017, 21:22 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Мир MS Excel » Работа и общение » Мозговой штурм » Истина где-то рядом (Мяукнуть True)
http://www.excelworld.ru/forum/7-32724-1

Ответить

Manyasha

Дата: Четверг, 14.12.2017, 22:28 | Сообщение № 6

Группа: Модераторы

Ранг: Старожил

Сообщений: 2198

Репутация: 901 ±

Замечаний: 0% ±

Excel 2010, 2016

Да нормальная вроде тема, чего вы?
Перенесла текст "через запятую" в начало, так понятнее. victory

ovechkin1973, так нужно?
[vba]

Код

Sub t()
    Dim t, i%, x
    t = Split(ActiveCell, ",")
    i = ActiveCell.Row + 1
    For Each x In t
        Rows(i).Insert Shift:=xlDown
        Cells(i, ActiveCell.Column) = Trim(x)
        i = i + 1
    Next x
End Sub

[/vba]