Перенос части текста из одной ячейки в другую

Дата: Понедельник, 17.07.2017, 17:31 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

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

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

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

Сообщение отредактировал grigor30 - Понедельник, 17.07.2017, 17:40

Дата: Понедельник, 17.07.2017, 17:49 | Сообщение № 2

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

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

Сообщений: 2198

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

Замечаний: 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 (48.0 Kb)

ЯД: 410013299366744 WM: R193491431804

Дата: Понедельник, 17.07.2017, 17:57 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

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

Дата: Четверг, 24.08.2017, 15:25 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

Manyasha, подскажите, пожалуйста, еще короткой вопрос:
как изменится формула, если текст в ячейке написан не в столбец, а в одну стоку?

Дата: Четверг, 24.08.2017, 17:07 | Сообщение № 5

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

grigor30, т.е. через знак ";"?
[vba]

Код

temp = Split(Cells(i, "d"), ";"

[/vba]

ЯД: 410013299366744 WM: R193491431804

Дата: Четверг, 24.08.2017, 17:48 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

Manyasha, большое спасибо!

Дата: Четверг, 24.08.2017, 17:53 | Сообщение № 7

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

Manyasha, и все же можете полностью весь макрос написать?
Иначе выдается ошибка Complite error (

Дата: Четверг, 24.08.2017, 19:17 | Сообщение № 8

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

grigor30, покажите в файле

ЯД: 410013299366744 WM: R193491431804

Дата: Пятница, 25.08.2017, 17:43 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

Manyasha, файл прилагаю.

К сообщению приложен файл: 8914518.xls (42.0 Kb)

Дата: Суббота, 26.08.2017, 14:04 | Сообщение № 10

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

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

Сообщений: 2198

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

Замечаний: 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"), ";") Then
            temp = Split(Cells(i, "d"), ";")
            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]

К сообщению приложен файл: 8914518-1.xls (50.0 Kb)

ЯД: 410013299366744 WM: R193491431804

Дата: Среда, 30.08.2017, 13:36 | Сообщение № 11

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

Manyasha, большое спасибо!

Дата: Вторник, 05.09.2017, 20:36 | Сообщение № 12

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

Ранг: Новичок

Сообщений: 14

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

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

Excel 2007

Manyasha, и последний вопрос по этому макросу. Как изменится формула, если столбцов, которые нужно обработать целых 2?
Пример прилагаю.
Заранее спасибо за ответ.

К сообщению приложен файл: 4202236.xls (53.0 Kb)

Pelena

Дата: Суббота, 27.01.2018, 15:53 | Сообщение № 13

Группа: Админы

Ранг: Местный житель

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

turist2009, создайте свою тему, приложите файл с примером, и Вам обязательно помогут.
Эта тема закрыта

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816