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

Вход

Регистрация

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

 

= Мир MS Excel/Разбивка по строкам с присвоением прочих д... (не бесплатно) - Мир MS Excel

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

Excel 2010
Уважаемые форумчане, очень нужна ваша помощь. Необходимо все слова в третьем столбце D со знаком "-" (минус) разбить в один столбец по одному слову в ячейке. Казалось бы все просто, вот только нужно чтобы, данные из двух первых столбцов A и B автоматически присваивались к соответствующим им изначально, словам со знаком "-" (минус). Я прикрепил файл с примером как это все должно выглядеть. Очень жду ваших ответов. Тут упомянули, что для этого потребуется написать макрос. Кто умеет и разбирается в этом, готов заплатить (называйте сумму) за рабочий макрос, чтобы и в дальнейшем я мог в нужное время пользоваться им для данной задачи.
К сообщению приложен файл: 8743195.xls(97Kb)


Сообщение отредактировал Rousteek - Пятница, 03.06.2016, 16:15
 
Ответить
СообщениеУважаемые форумчане, очень нужна ваша помощь. Необходимо все слова в третьем столбце D со знаком "-" (минус) разбить в один столбец по одному слову в ячейке. Казалось бы все просто, вот только нужно чтобы, данные из двух первых столбцов A и B автоматически присваивались к соответствующим им изначально, словам со знаком "-" (минус). Я прикрепил файл с примером как это все должно выглядеть. Очень жду ваших ответов. Тут упомянули, что для этого потребуется написать макрос. Кто умеет и разбирается в этом, готов заплатить (называйте сумму) за рабочий макрос, чтобы и в дальнейшем я мог в нужное время пользоваться им для данной задачи.

Автор - Rousteek
Дата добавления - 03.06.2016 в 13:44
китин Дата: Пятница, 03.06.2016, 13:55 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4329
Репутация: 673 ±
Замечаний: 0% ±

Excel 2007;Excel 2010
Rousteek, ну зачем же так кричать???? видим мы, видим :D

боюсь формулами это сделать весьма проблематично. надо макрописцев ждать


Не судите строго:я пытаюсь научиться
ЯД 41001877306852/WM R249698041931; Z239672726538


Сообщение отредактировал китин - Пятница, 03.06.2016, 13:58
 
Ответить
СообщениеRousteek, ну зачем же так кричать???? видим мы, видим :D

боюсь формулами это сделать весьма проблематично. надо макрописцев ждать

Автор - китин
Дата добавления - 03.06.2016 в 13:55
Rousteek Дата: Пятница, 03.06.2016, 15:07 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Сорьки кричать не хотел, просто чтобы чуток выделиться на фоне конкурентов :D
[moder]А я вот Вам сейчас, чтобы Вы еще больше выделились, замечание влеплю.
Исправляйте свой первый пост.[/moder]
 
Ответить
СообщениеСорьки кричать не хотел, просто чтобы чуток выделиться на фоне конкурентов :D
[moder]А я вот Вам сейчас, чтобы Вы еще больше выделились, замечание влеплю.
Исправляйте свой первый пост.[/moder]

Автор - Rousteek
Дата добавления - 03.06.2016 в 15:07
Rousteek Дата: Пятница, 03.06.2016, 15:39 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Уже)
[moder]Принято[/moder]


Сообщение отредактировал _Boroda_ - Пятница, 03.06.2016, 16:12
 
Ответить
СообщениеУже)
[moder]Принято[/moder]

Автор - Rousteek
Дата добавления - 03.06.2016 в 15:39
Pelena Дата: Пятница, 03.06.2016, 17:47 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11478
Репутация: 2549 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Сначала разбить текст по столбцам, затем применить редизайнер таблиц и удалить строки с пустыми значениями
К сообщению приложен файл: 8743195-1-.xlsb(81Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеСначала разбить текст по столбцам, затем применить редизайнер таблиц и удалить строки с пустыми значениями

Автор - Pelena
Дата добавления - 03.06.2016 в 17:47
Rousteek Дата: Пятница, 03.06.2016, 18:06 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Вижу что сделано как надо hands но это далеко не весь документ. Вы бы мне объяснили пошагово как это делается, чтобы я мог дальше сам проделывать это. Как с вами можно связаться? (как уже указал в шапке вопроса, в долгу не останусь)
[moder]Не надо нарушать п. 5о Правил форума[/moder]


Сообщение отредактировал Pelena - Пятница, 03.06.2016, 20:05
 
Ответить
СообщениеPelena, Вижу что сделано как надо hands но это далеко не весь документ. Вы бы мне объяснили пошагово как это делается, чтобы я мог дальше сам проделывать это. Как с вами можно связаться? (как уже указал в шапке вопроса, в долгу не останусь)
[moder]Не надо нарушать п. 5о Правил форума[/moder]

Автор - Rousteek
Дата добавления - 03.06.2016 в 18:06
Pelena Дата: Пятница, 03.06.2016, 20:04 | Сообщение № 7
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11478
Репутация: 2549 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Пошагово:
1) выделяем столбец D
2) Данные -- Текст по столбцам -- с разделителем -- Пробел.
3) На третьем шаге Мастера текста надо для всех столбцов установить текстовый формат (иначе знаки - будут восприниматься как арифметический знак, что приведёт к ошибкам). Как это сделать быстро, я не знаю. Пришлось визуально найти самую длинную строку, выделить все столбцы (выделить первый, зажать Shift, выделить последний) и установить переключатель Текстовый.
Наверное, можно сделать макросом, но у меня не получилось для произвольного числа столбцов. Может, макрописатели помогут
4) нажимаем Alt+F8 выбираем макрос Redesigner -- Выполнить. Макрос взят отсюда , но я добавила пару строк, чтобы позиции, у которых нет ключевых слов, тоже сохранялись, а лишние строки не добавлялись. При работе макроса число строк в шапке 1, а число столбцов слева 3 (по Вашему примеру)
К сообщению приложен файл: 9156870.xlsb(82Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПошагово:
1) выделяем столбец D
2) Данные -- Текст по столбцам -- с разделителем -- Пробел.
3) На третьем шаге Мастера текста надо для всех столбцов установить текстовый формат (иначе знаки - будут восприниматься как арифметический знак, что приведёт к ошибкам). Как это сделать быстро, я не знаю. Пришлось визуально найти самую длинную строку, выделить все столбцы (выделить первый, зажать Shift, выделить последний) и установить переключатель Текстовый.
Наверное, можно сделать макросом, но у меня не получилось для произвольного числа столбцов. Может, макрописатели помогут
4) нажимаем Alt+F8 выбираем макрос Redesigner -- Выполнить. Макрос взят отсюда , но я добавила пару строк, чтобы позиции, у которых нет ключевых слов, тоже сохранялись, а лишние строки не добавлялись. При работе макроса число строк в шапке 1, а число столбцов слева 3 (по Вашему примеру)

Автор - Pelena
Дата добавления - 03.06.2016 в 20:04
Rousteek Дата: Суббота, 04.06.2016, 12:01 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Прошу прощения, не знал, что нарушаю что то :o Спасибо большое, сейчас буду пробовать ваш метод!
 
Ответить
СообщениеPelena, Прошу прощения, не знал, что нарушаю что то :o Спасибо большое, сейчас буду пробовать ваш метод!

Автор - Rousteek
Дата добавления - 04.06.2016 в 12:01
Rousteek Дата: Суббота, 04.06.2016, 14:03 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Никогда раньше не имел дела с макросами, наконец хоть понял как он вообще запускается :D Один из макросов более менее работает, но как вы и говорили, он удаляет пустые строки, этот:

[vba]
Код
Sub Redesigner()
Dim inpdata As Range, realdata As Range, ns As Worksheet
Dim i&, j&, k&, c&, r&, hc&, hr&
Dim out(), dataArr, hcArr, hrArr

hr = Val(InputBox("Сколько строк с подписями данных сверху?"))
hc = Val(InputBox("Сколько столбцов с подписями данных слева?"))

Set inpdata = Selection
If inpdata.Rows.Count <= hr Or inpdata.Columns.Count <= hc Then Exit Sub
Set realdata = inpdata.Offset(hr, hc).Resize(inpdata.Rows.Count - hr, inpdata.Columns.Count - hc)
dataArr = realdata.Value
If hr Then hrArr = inpdata.Offset(0, hc).Resize(hr, inpdata.Columns.Count - hc).Value
If hc Then hcArr = inpdata.Offset(hr, 0).Resize(inpdata.Rows.Count - hr, hc).Value

ReDim out(1 To Application.CountA(realdata), 1 To hr + hc + 1)
Set ns = Worksheets.Add

For i = 1 To UBound(dataArr, 1)
For j = 1 To UBound(dataArr, 2)
If Not IsEmpty(dataArr(i, j)) Then
k = k + 1
For c = 1 To hc: out(k, c) = hcArr(i, c): Next c
For r = 1 To hr: out(k, c + r - 1) = hrArr(r, j): Next r
out(k, c + r - 1) = dataArr(i, j)
End If
Next j, i
ns.Cells(2, 1).Resize(UBound(out, 1), UBound(out, 2)) = out
End Sub
[/vba]

Скажите пожалуйста, какие пару строк вы изменили, чтобы позиции, у которых нет ключевых слов, тоже сохранялись, а лишние строки не добавлялись?
[moder]Оформляйте коды тегами, кнопка #[/moder]


Сообщение отредактировал Pelena - Суббота, 04.06.2016, 14:17
 
Ответить
СообщениеPelena, Никогда раньше не имел дела с макросами, наконец хоть понял как он вообще запускается :D Один из макросов более менее работает, но как вы и говорили, он удаляет пустые строки, этот:

[vba]
Код
Sub Redesigner()
Dim inpdata As Range, realdata As Range, ns As Worksheet
Dim i&, j&, k&, c&, r&, hc&, hr&
Dim out(), dataArr, hcArr, hrArr

hr = Val(InputBox("Сколько строк с подписями данных сверху?"))
hc = Val(InputBox("Сколько столбцов с подписями данных слева?"))

Set inpdata = Selection
If inpdata.Rows.Count <= hr Or inpdata.Columns.Count <= hc Then Exit Sub
Set realdata = inpdata.Offset(hr, hc).Resize(inpdata.Rows.Count - hr, inpdata.Columns.Count - hc)
dataArr = realdata.Value
If hr Then hrArr = inpdata.Offset(0, hc).Resize(hr, inpdata.Columns.Count - hc).Value
If hc Then hcArr = inpdata.Offset(hr, 0).Resize(inpdata.Rows.Count - hr, hc).Value

ReDim out(1 To Application.CountA(realdata), 1 To hr + hc + 1)
Set ns = Worksheets.Add

For i = 1 To UBound(dataArr, 1)
For j = 1 To UBound(dataArr, 2)
If Not IsEmpty(dataArr(i, j)) Then
k = k + 1
For c = 1 To hc: out(k, c) = hcArr(i, c): Next c
For r = 1 To hr: out(k, c + r - 1) = hrArr(r, j): Next r
out(k, c + r - 1) = dataArr(i, j)
End If
Next j, i
ns.Cells(2, 1).Resize(UBound(out, 1), UBound(out, 2)) = out
End Sub
[/vba]

Скажите пожалуйста, какие пару строк вы изменили, чтобы позиции, у которых нет ключевых слов, тоже сохранялись, а лишние строки не добавлялись?
[moder]Оформляйте коды тегами, кнопка #[/moder]

Автор - Rousteek
Дата добавления - 04.06.2016 в 14:03
Pelena Дата: Суббота, 04.06.2016, 14:20 | Сообщение № 10
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11478
Репутация: 2549 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
У меня в файле из 7-го сообщения другой макрос, нажмите Alt+F11 и увидите его


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеУ меня в файле из 7-го сообщения другой макрос, нажмите Alt+F11 и увидите его

Автор - Pelena
Дата добавления - 04.06.2016 в 14:20
jakim Дата: Суббота, 04.06.2016, 15:34 | Сообщение № 11
Группа: Друзья
Ранг: Ветеран
Сообщений: 800
Репутация: 206 ±
Замечаний: 0% ±

Вариант с формулами после разделения по столбцам.
К сообщению приложен файл: 9332327.xlsx(55Kb)
 
Ответить
Сообщение
Вариант с формулами после разделения по столбцам.

Автор - jakim
Дата добавления - 04.06.2016 в 15:34
Rousteek Дата: Воскресенье, 05.06.2016, 11:02 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Pelena, Спасибо большое, сейчас буду пробовать yahoo
 
Ответить
СообщениеPelena, Спасибо большое, сейчас буду пробовать yahoo

Автор - Rousteek
Дата добавления - 05.06.2016 в 11:02
Rousteek Дата: Воскресенье, 05.06.2016, 12:33 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
jakim, Не совсем это я имел в виду или я сам просто что то не понял в вашем варианте)) Но спасибо за внимание, Pelena уже сделала нужный и рабочий макрос)
 
Ответить
Сообщениеjakim, Не совсем это я имел в виду или я сам просто что то не понял в вашем варианте)) Но спасибо за внимание, Pelena уже сделала нужный и рабочий макрос)

Автор - Rousteek
Дата добавления - 05.06.2016 в 12:33
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Разбивка по строкам с присвоением прочих д... (не бесплатно) (Формулы/Formulas)
Страница 1 из 11
Поиск:

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