Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как разделить много данных в строке на отдельные строки?
 
#1
16.09.2009 11:10:17
В строке записаны числа через запятую, надо их разбить, чтоб каждое число было в отдельной ячейки...желательно в столбец
 
 
 
#2
16.09.2009 12:31:04
Огромное спасибо, вы мне жизнь спасли!)))
 
 
 
#3
16.09.2009 15:16:30
Проба пера. Надо же когда-нибудь учиться.  
Написал код макроса, который делает то же самое.  
А теперь у меня просьба к корифеям VBA, которые не сильно заняты.  Что можно сделать лучше и как?  
С уважением, Александр.
 
 
 
#4
16.09.2009 15:56:41
{quote}{login=Sh_Alex}{date=16.09.2009 03:16}{thema=}{post}Проба пера. Надо же когда-нибудь учиться.{/post}{/quote}  
Вот-вот. А я с макросами ленюсь :)
 
 
 
#5
16.09.2009 15:58:49
{quote}{login=The_Prist}{date=16.09.2009 03:40}{thema=}{post}Но я сделал бы так  
{/post}{/quote}  
Спасибо!    
Нечто подобное я и хотел увидеть. Другой более рациональный подход к задаче. Дай Бог здоровья, может и я когда-нибудь научусь так.  
С уважением, Александр.
 
 
 
#6
06.04.2010 22:53:38
{quote}{login=The_Prist}{date=16.09.2009 11:12}{thema=}{post}Данные-Разбить по столбцам  
Разделитель - запятая{/post}{/quote}  
Раньше всегда это срабатывало(на работе стоит XP), но теперь не срабатывает(дома стоит Виста). Может, поэтому неактивна кнопочка РАЗБИТЬ ПО СТОЛБЦАМ?  
И как бы все-таки разбить?
 
 
 
#7
06.04.2010 23:14:36
Выделите один столбец.
 
 
 
#8
07.04.2010 00:41:13
Просто в восторге! На этом сайте можно не только получить оперативный ответ на вопрос, НО (!!!) можно получить ответ, еще не успев его сформулировать  
Спасибо автору темы за задачку, а Sh_Alex и The_Prist за кодик. Именно этот вопрос вот уже час, как терзал мою душу.
 
 
 
#9
07.04.2010 00:45:37
{quote}{login=Sh_Alex}{date=16.09.2009 03:16}{thema=}{post}Проба пера. Надо же когда-нибудь учиться.  
Написал код макроса, который делает то же самое.  
А теперь у меня просьба к корифеям VBA, которые не сильно заняты.  Что можно сделать лучше и как?  
С уважением, Александр.{/post}{/quote}  
Напиши к строком коментарий - и я научусь.  
The_Prist, а Вас уж и просить стесняюсь. :)  
Спасибо.
 
 
 
#10
07.04.2010 00:51:18
{quote}{login=Hugo}{date=06.04.2010 11:14}{thema=}{post}Выделите один столбец.{/post}{/quote}  
Семён Семёныч!!!!    
Спасибо!!! А то я уже и все столбцы выделяла и не выделяла вообще, а то, что один надо выделить и не додумалась))))
 
 
 
#11
07.04.2010 09:57:43
Сломал Ваш код вставил вместо запятой -; думаю его следет доработать для разных разделителей , ; - ? Как думаете надо?
 
 
 
#12
07.04.2010 10:18:03
Разбирает по "-":  
 
Private Sub CommandButton1_Click()  
 ival = ActiveCell.Value  
 If ival = "" Then Exit Sub  
   adCel = ActiveCell.Address  
   iCol = Len(Range(adCel)) - Len(Replace(Range(adCel), "-", ""))  
   adCol = Cells(Range(adCel).Row, Range(adCel).Column + iCol).Address  
      Range(adCel).Select  
      Selection.TextToColumns Other:=True, OtherChar:="-"  
       Range(adCel & ":" & adCol).Copy  
       Range(adCel).Offset(1, 0).Range("A1").PasteSpecial Paste:=xlPasteValues, Transpose:=True  
   Range(adCel & ":" & adCol).ClearContents  
   Range(adCel).Value = ival  
End Sub  
 
Если делать универсальный, надо запрос разделителя доьавить - имхо нетрудно дополнить.
 
 
 
#13
07.04.2010 10:21:04
Я думаю надо делать универсальный , причем как надстройку .. очистку от ООО и ОАО человек 100 скачали.
 
 
 
#14
07.04.2010 10:22:29
Причем желательно по выбору юсера разбивать не только в столбцы , но как вариант и по строкам, тогда можно сразу диапазон цеплять
 
 
 
Страницы: 1
Читают тему
Наверх