|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
05.12.2014, 17:19 | #1 |
Регистрация: 05.12.2014
Сообщений: 7
|
Помоготи с макросом
Нашол такой макрос:
Sub Splitcellc() Dim arrS() As String Dim i& For i = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1 arrS = Split(Cells(i, "c").Value, "&" & vbLf) If UBound(arrS) > 0 Then Range(Rows(i + 1), Rows(i + UBound(arrS))).Insert Cells(i, "c").Resize(UBound(arrS) + 1).Value = Application.Transpose(arrS) End If Next i End Sub Он переносит данные по строкам, но делает это по одному столбцу который указан в макросе, подскажите что там нужно дописать чтоб он одновременно работал по нескольким столбцам. |
05.12.2014, 18:47 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
там нужно дописать код, который будет обрабатывать еще несколько столбцов
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.12.2014, 08:48 | #3 |
Регистрация: 05.12.2014
Сообщений: 7
|
Это понятно, что нужно дописать код который обробатывает ещё несколько столбцов, да что то не получается. С макросами раньше дела не имел.
|
08.12.2014, 09:55 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
С людми-то Вы имели дело раньше?
Вы полагаете что "несколько столбцов" - это все знают сколько и каких именно (на листе ексель2007 - 16 тыс.столбцов)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.12.2014, 10:17 | #5 |
Регистрация: 05.12.2014
Сообщений: 7
|
Обычные столбцы с текстовыми данными, разделенные разделителем "&".
|
08.12.2014, 11:55 | #6 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
оказалось - дописать надо все:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.12.2014, 12:20 | #7 |
Регистрация: 05.12.2014
Сообщений: 7
|
Получается не совсем то что нужно. Макрос который я приводил в примере, заменяет или удаляет не разделенные по строкам значения. В вашем варианете остаются два варианта значений.
|
08.12.2014, 12:21 | #8 |
Регистрация: 05.12.2014
Сообщений: 7
|
Но все ранво спасибо за предложенный вариант.
|
08.12.2014, 12:49 | #9 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
перечитайте свои сообщения и найдите хоть слово о том, как должен отображаться результат.
а) строку с исходными - межете удалить ручками б) в коде, который я написал, можете 1 раз заменить 2 на 1 и будет по-вашему (какую из 2-х присутствующих в макросе двоек заменить -решите экспериментальным путем)) удачи! и все равно, пожалуйста!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.12.2014, 12:56 | #10 | |
Регистрация: 05.12.2014
Сообщений: 7
|
Цитата:
|
|
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помоготи решить задачу на С! | Черепков Валерий | Общие вопросы C/C++ | 1 | 01.02.2012 16:13 |
Помоготи сделать по простому!!!!!! | Artyomka1989 | Фриланс | 6 | 25.07.2010 16:14 |
Помоготи решить задачи на C | VHomer | Помощь студентам | 5 | 09.11.2008 17:59 |
Помоготи решить задачу на паскале! | Dudar | Помощь студентам | 1 | 03.07.2008 09:22 |