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

Вход

Регистрация

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

 

= Мир MS Excel/Разбить содержимое одной ячейки на несколько строк. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Разбить содержимое одной ячейки на несколько строк.
tanela Дата: Среда, 28.08.2024, 15:18 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Как разбить содержимое одной ячейки на несколько строк.
К сообщению приложен файл: razbit_soderzhimoe_jachejki.xlsx (26.8 Kb)
 
Ответить
СообщениеКак разбить содержимое одной ячейки на несколько строк.

Автор - tanela
Дата добавления - 28.08.2024 в 15:18
bigor Дата: Среда, 28.08.2024, 15:41 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1282
Репутация: 246 ±
Замечаний: 0% ±

нет
tanela, в новых версиях SPLIT() есть.
 
Ответить
Сообщениеtanela, в новых версиях SPLIT() есть.

Автор - bigor
Дата добавления - 28.08.2024 в 15:41
tanela Дата: Среда, 28.08.2024, 16:00 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

bigor, к сожалению не новая версия.
 
Ответить
Сообщениеbigor, к сожалению не новая версия.

Автор - tanela
Дата добавления - 28.08.2024 в 16:00
Nic70y Дата: Среда, 28.08.2024, 16:15 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9010
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Sub u_1()
    Application.ScreenUpdating = False
    x = Cells(Rows.Count, "e").End(xlUp).Row + 1
    Range("e2:e" & x).Clear 'сотрем старое
    a = Cells(Rows.Count, "b").End(xlUp).Row 'нижняя строка столбца B
    For b = 2 To a 'цикл от 2й до нижней строки
        c = Range("b" & b).Value 'значение ячейки
        d = Replace(c, Chr(10), "") 'уберем символ переноса
        e = Replace(d, " ", "") 'уберем пробелы
        f = e & "," 'добавим запятую
        'определим кол-во запятых
        g = Len(f)
        h = Len(Replace(f, ",", ""))
        i = g - h
        For j = 1 To i 'цикл внутри ячейки по кол-ву запятых
            k = InStr(f, ",") 'ищем запятую
            l = Left(f, k - 1) 'извлеченный код
            f = Mid(f, k + 1, g) 'оставшееся в "ячейке"
            m = Cells(Rows.Count, "e").End(xlUp).Row + 1 'строка очередной записи
            Range("e" & m) = l
        Next
    Next
End Sub
[/vba]
К сообщению приложен файл: 212.xlsm (33.6 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Sub u_1()
    Application.ScreenUpdating = False
    x = Cells(Rows.Count, "e").End(xlUp).Row + 1
    Range("e2:e" & x).Clear 'сотрем старое
    a = Cells(Rows.Count, "b").End(xlUp).Row 'нижняя строка столбца B
    For b = 2 To a 'цикл от 2й до нижней строки
        c = Range("b" & b).Value 'значение ячейки
        d = Replace(c, Chr(10), "") 'уберем символ переноса
        e = Replace(d, " ", "") 'уберем пробелы
        f = e & "," 'добавим запятую
        'определим кол-во запятых
        g = Len(f)
        h = Len(Replace(f, ",", ""))
        i = g - h
        For j = 1 To i 'цикл внутри ячейки по кол-ву запятых
            k = InStr(f, ",") 'ищем запятую
            l = Left(f, k - 1) 'извлеченный код
            f = Mid(f, k + 1, g) 'оставшееся в "ячейке"
            m = Cells(Rows.Count, "e").End(xlUp).Row + 1 'строка очередной записи
            Range("e" & m) = l
        Next
    Next
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 28.08.2024 в 16:15
tanela Дата: Среда, 28.08.2024, 16:44 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Nic70y,Все отлично! Благодарю Вас.
 
Ответить
СообщениеNic70y,Все отлично! Благодарю Вас.

Автор - tanela
Дата добавления - 28.08.2024 в 16:44
  • Страница 1 из 1
  • 1
Поиск:

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