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

Вход

Регистрация

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

 

= Мир MS Excel/Перенос части текста из одной ячейки в другую - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос части текста из одной ячейки в другую (Формулы/Formulas)
Перенос части текста из одной ячейки в другую
grigor30 Дата: Понедельник, 17.07.2017, 17:31 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!
Подскажите, пожалуйста, как с помощью формулы решить задачу: перенос части текста до запятой из одной ячейки А1 в строке 1, в другую ячейку А2 в строке 2, при этом перенести все данные из других ячеек строки 1, в соответствующие ячейки строки 2 ?
Так же необходимо учесть, что в строке 2 уже имеются данные, поэтому при использовании формулы, данные из строки 2 должны переместиться в строку 3, а данные из строки 3 должны переместиться в 4-ую и так далее.
Пример прилагаю.

Заранее спасибо!
К сообщению приложен файл: post.xls(49Kb)


Сообщение отредактировал grigor30 - Понедельник, 17.07.2017, 17:40
 
Ответить
СообщениеДобрый день!
Подскажите, пожалуйста, как с помощью формулы решить задачу: перенос части текста до запятой из одной ячейки А1 в строке 1, в другую ячейку А2 в строке 2, при этом перенести все данные из других ячеек строки 1, в соответствующие ячейки строки 2 ?
Так же необходимо учесть, что в строке 2 уже имеются данные, поэтому при использовании формулы, данные из строки 2 должны переместиться в строку 3, а данные из строки 3 должны переместиться в 4-ую и так далее.
Пример прилагаю.

Заранее спасибо!

Автор - grigor30
Дата добавления - 17.07.2017 в 17:31
Manyasha Дата: Понедельник, 17.07.2017, 17:49 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1908
Репутация: 783 ±
Замечаний: 0% ±

Excel 2010, 2016
grigor30, здравствуйте, макросом пойдет?
[vba]
Код
Sub test()
    Dim lr&, i&
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To 1 Step -1
        If InStr(Cells(i, "d"), Chr(10)) Then
            temp = Split(Cells(i, "d"), ";" & Chr(10))
            Rows(i).Resize(UBound(temp)).Insert
            Cells(i, 1).Resize(UBound(temp), 3) = Cells(i + UBound(temp), 1).Resize(, 3).Value
            Cells(i, "e").Resize(UBound(temp)) = Cells(i + UBound(temp), "e").Value
            Cells(i, "d").Resize(UBound(temp) + 1).Value = Application.Transpose(temp)
        End If
    Next i
End Sub
[/vba]
К сообщению приложен файл: post-1.xls(48Kb)


marinamorozova_box@mail.ru
ЯД: 410013299366744 WM: R193491431804
 
Ответить
Сообщениеgrigor30, здравствуйте, макросом пойдет?
[vba]
Код
Sub test()
    Dim lr&, i&
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = lr To 1 Step -1
        If InStr(Cells(i, "d"), Chr(10)) Then
            temp = Split(Cells(i, "d"), ";" & Chr(10))
            Rows(i).Resize(UBound(temp)).Insert
            Cells(i, 1).Resize(UBound(temp), 3) = Cells(i + UBound(temp), 1).Resize(, 3).Value
            Cells(i, "e").Resize(UBound(temp)) = Cells(i + UBound(temp), "e").Value
            Cells(i, "d").Resize(UBound(temp) + 1).Value = Application.Transpose(temp)
        End If
    Next i
End Sub
[/vba]

Автор - Manyasha
Дата добавления - 17.07.2017 в 17:49
grigor30 Дата: Понедельник, 17.07.2017, 17:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Manyasha, спасибо, но к сожалению не имею пользоваться макросами((
обычной формулой никак?
 
Ответить
СообщениеManyasha, спасибо, но к сожалению не имею пользоваться макросами((
обычной формулой никак?

Автор - grigor30
Дата добавления - 17.07.2017 в 17:57
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Перенос части текста из одной ячейки в другую (Формулы/Formulas)
Страница 1 из 11
Поиск:

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