Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как разбить текст в ячейке на столбцы по горизонтале - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как разбить текст в ячейке на столбцы по горизонтале (Макросы/Sub)
Как разбить текст в ячейке на столбцы по горизонтале
Tedsin Дата: Понедельник, 04.03.2019, 05:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день. Подскажите пожалуйста, как можно разбить текст из одной ячейки и разнести в отдельные ячейки по горизонтали.
В примере 2 столбца (категория и названия - расписанные через запятую) неоходимо чтобы названия в столбце B были разделене на ячейки по горизонтале и к каждому разбитому тексту подтянулось значение из толбца A.
К сообщению приложен файл: 5901761.xlsx(9.9 Kb)
 
Ответить
СообщениеДобрый день. Подскажите пожалуйста, как можно разбить текст из одной ячейки и разнести в отдельные ячейки по горизонтали.
В примере 2 столбца (категория и названия - расписанные через запятую) неоходимо чтобы названия в столбце B были разделене на ячейки по горизонтале и к каждому разбитому тексту подтянулось значение из толбца A.

Автор - Tedsin
Дата добавления - 04.03.2019 в 05:52
Pelena Дата: Понедельник, 04.03.2019, 07:19 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 14770
Репутация: 3231 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Здравствуйте.
Выделить диапазон -- Данные -- Текст по столбцам -- С разделителем -- поставить флажки Запятая и Пробел --ОК
Если нужен макрос, можно записать эти действия макрорекодером


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Выделить диапазон -- Данные -- Текст по столбцам -- С разделителем -- поставить флажки Запятая и Пробел --ОК
Если нужен макрос, можно записать эти действия макрорекодером

Автор - Pelena
Дата добавления - 04.03.2019 в 07:19
Tedsin Дата: Понедельник, 04.03.2019, 07:34 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте.
Выделить диапазон -- Данные -- Текст по столбцам -- С разделителем -- поставить флажки Запятая и Пробел --ОК


Ошибочка - по вертикали. Этот способ известен но он не подходит. Разделение идет по столбцам в том же листе, а требуется чтобы из столбца B Названия мигрировали на другой лист в каждую ячейку отдельно по вертикали (не горизонталь) как указано в примере во вкладке "На выходе" и при разделении подтягивалось значение из ячейки A к каждму разделенному тексту по вертикали, к которому он принадлежал в исходнике.
 
Ответить
Сообщение
Здравствуйте.
Выделить диапазон -- Данные -- Текст по столбцам -- С разделителем -- поставить флажки Запятая и Пробел --ОК


Ошибочка - по вертикали. Этот способ известен но он не подходит. Разделение идет по столбцам в том же листе, а требуется чтобы из столбца B Названия мигрировали на другой лист в каждую ячейку отдельно по вертикали (не горизонталь) как указано в примере во вкладке "На выходе" и при разделении подтягивалось значение из ячейки A к каждму разделенному тексту по вертикали, к которому он принадлежал в исходнике.

Автор - Tedsin
Дата добавления - 04.03.2019 в 07:34
InExSu Дата: Вторник, 05.03.2019, 01:17 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 589
Репутация: 69 ±
Замечаний: 0% ±

Excel 2010
Привет!
во вложении.
К сообщению приложен файл: InExSu_Hor_2_Ve.xlsb(58.9 Kb)


На сохранение второго закона термодинамики: яндекс.кошелёк 410012113235839
 
Ответить
СообщениеПривет!
во вложении.

Автор - InExSu
Дата добавления - 05.03.2019 в 01:17
sboy Дата: Вторник, 05.03.2019, 09:44 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 722 ±
Замечаний: 0% ±

Excel 2010
Добрый день.
Power Query умеет одной командой разделять по строкам
К сообщению приложен файл: 1329179.xlsx(19.7 Kb)


Яндекс: 410016850021169
 
Ответить
СообщениеДобрый день.
Power Query умеет одной командой разделять по строкам

Автор - sboy
Дата добавления - 05.03.2019 в 09:44
_Boroda_ Дата: Вторник, 05.03.2019, 11:30 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15577
Репутация: 6079 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Еще вариант
[vba]
Код
Sub tt()
    n1_ = Cells(Rows.Count, 2).End(3).Row - 1
    ar0 = Cells(2, 1).Resize(n1_, 2)
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    Columns(2).ColumnWidth = 0.5
    Application.DisplayAlerts = 0
    Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Justify
    Application.DisplayAlerts = 1
    n2_ = Cells(Rows.Count, 2).End(3).Row - 1
    Cells(2, 2).Resize(n2_).Replace What:=",", Replacement:=""
    ar = Cells(2, 1).Resize(n2_, 2)
    j = 1
    For i = 1 To n1_
        z_ = UBound(Split(ar0(i, 2)))
        For j = j To z_ + j
            ar(j, 1) = ar0(i, 1)
        Next j
    Next i
    Cells(2, 1).Resize(n2_, 2) = ar
    Columns(2).EntireColumn.AutoFit
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]
К сообщению приложен файл: 5901761_1.xlsm(16.9 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеЕще вариант
[vba]
Код
Sub tt()
    n1_ = Cells(Rows.Count, 2).End(3).Row - 1
    ar0 = Cells(2, 1).Resize(n1_, 2)
    Application.ScreenUpdating = 0
    Application.Calculation = 3
    Columns(2).ColumnWidth = 0.5
    Application.DisplayAlerts = 0
    Range("B2:B" & Cells(Rows.Count, 2).End(3).Row).Justify
    Application.DisplayAlerts = 1
    n2_ = Cells(Rows.Count, 2).End(3).Row - 1
    Cells(2, 2).Resize(n2_).Replace What:=",", Replacement:=""
    ar = Cells(2, 1).Resize(n2_, 2)
    j = 1
    For i = 1 To n1_
        z_ = UBound(Split(ar0(i, 2)))
        For j = j To z_ + j
            ar(j, 1) = ar0(i, 1)
        Next j
    Next i
    Cells(2, 1).Resize(n2_, 2) = ar
    Columns(2).EntireColumn.AutoFit
    Application.Calculation = 1
    Application.ScreenUpdating = 1
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 05.03.2019 в 11:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как разбить текст в ячейке на столбцы по горизонтале (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!