Разбить символы в ячейке - Microsoft Office Excel

AllenJ · 21.12.2011, 19:41

Здравствуйте! Никак не могу сделать следующее:

В ячейке есть различные символы, скажем:

Код:

1 2 3 4 5

Нужно, чтобы при выделении этой ячейки/ячеек (т.е. через Selection) в соседних ячейках цифры разбивались каждая на отдельную ячейку, т.е. цифра 1 в соседней ячейке, цифра два в 2 соседней ячейке цифре 1 и т.д. (как на скриншоте).
Подскажите, пожалуйста, как это сделать.
Спасибо большое!

IgorGO · 21.12.2011, 19:48

в 2007:
лента данные, группа работа с данными, кнопка текст по столбцам...

удачи!

AllenJ · 21.12.2011, 20:09

Спасибо, Игорь! Кое-что почерпнул для себя, но, это нужно реализовать по средствам VBA, записав макрос, по вашему предложениею получилось следущее:

Код:

Range("C11").Select
    Selection.TextToColumns Destination:=Range("C11"), DataType:=xlFixedWidth, _
        FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(5, 1), Array(8, 1), Array(11, 1)), _
        TrailingMinusNumbers:=True

Одно но, нужно чтобы не Range("C11"), а любую выделенную строку преобразовывало.

alex77755 · 21.12.2011, 20:16

Цитата:

а любую выдленную строку преобразовывало

Даже не могу представить как потом работать в екселе...

AllenJ · 21.12.2011, 20:31

Всмысле, что здесь такого?

kuklp · 21.12.2011, 20:33

Удалите Range("C11").Select. Будет любую выделенную.

AllenJ · 21.12.2011, 20:36

error

А с этим что делать?

Код:

 Selection.TextToColumns Destination:=Range("C11"), DataType:=xlFixedWidth, _

kuklp · 21.12.2011, 21:27

Код:

Selection.TextToColumns Destination:=selection.offset(,1), DataType:=xlFixedWidth, _

Или, чтоб на месте: Destination:=selection

AllenJ · 21.12.2011, 22:09

Спасибо большое! Работает как часы.

AllenJ · 21.12.2011, 22:11

единственный вопрос, как сделать, чтобы через одну ячейку вбивало, как на скриншоте. Это не так важно, но все же буду благодарен.

21.12.2011, 19:48	#2
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	в 2007: лента данные, группа работа с данными, кнопка текст по столбцам... удачи! Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

21.12.2011, 20:09	#3
AllenJ Пользователь Регистрация: 18.01.2011 Сообщений: 45	Спасибо, Игорь! Кое-что почерпнул для себя, но, это нужно реализовать по средствам VBA, записав макрос, по вашему предложениею получилось следущее: Код: `Range("C11").Select Selection.TextToColumns Destination:=Range("C11"), DataType:=xlFixedWidth, _ FieldInfo:=Array(Array(0, 1), Array(2, 1), Array(5, 1), Array(8, 1), Array(11, 1)), _ TrailingMinusNumbers:=True` Одно но, нужно чтобы не Range("C11"), а любую выделенную строку преобразовывало. Последний раз редактировалось AllenJ; 21.12.2011 в 20:30.

21.12.2011, 20:33	#6
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Удалите Range("C11").Select. Будет любую выделенную. mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728

21.12.2011, 20:36	#7
AllenJ Пользователь Регистрация: 18.01.2011 Сообщений: 45	error А с этим что делать? Код: `Selection.TextToColumns Destination:=Range("C11"), DataType:=xlFixedWidth, _`

21.12.2011, 21:27	#8
kuklp Участник клуба Регистрация: 02.05.2010 Сообщений: 1,390	Код: `Selection.TextToColumns Destination:=selection.offset(,1), DataType:=xlFixedWidth, _` Или, чтоб на месте: Destination:=selection mailto: kuklp60@gmail.com, ящики для благодарностей: WM Z206653985942, R334086032478, U238399322728 Последний раз редактировалось kuklp; 21.12.2011 в 21:32.

21.12.2011, 20:31	#5
AllenJ Пользователь Регистрация: 18.01.2011 Сообщений: 45	Всмысле, что здесь такого?

21.12.2011, 22:09	#9
AllenJ Пользователь Регистрация: 18.01.2011 Сообщений: 45	Спасибо большое! Работает как часы.

21.12.2011, 22:11	#10
AllenJ Пользователь Регистрация: 18.01.2011 Сообщений: 45	единственный вопрос, как сделать, чтобы через одну ячейку вбивало, как на скриншоте. Это не так важно, но все же буду благодарен.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
лишние символы в ячейке StringGrid при раскрашивании	furstenberg	Компоненты Delphi	5	29.10.2011 14:06
Разбить данные в ячейке определенным образом	Veylet	Microsoft Office Excel	27	21.09.2011 10:54
Как посчитать одинаковые символы в ячейке	Айли	Microsoft Office Excel	5	23.07.2010 07:41
Нужно разбить те числа которые в одной ячейке по разным ячейчам в столбец	Alexander_Gr	Microsoft Office Excel	8	20.11.2007 08:02