VBA & Excel задача - Microsoft Office Excel

corsarlt · 15.04.2008, 14:09

Всем привет. Помогите пожалуйста решить такую задачку. В одном столбце А1 по A10 вписаны 10 имён и фамилий. Надо сделать так, чтобы код выводил имена в отдельный столбец B1-B10, а фамилии в столбец C1-C10 копируя их из столбца A1-A10.

Спасибо за любые ответы.

SAS888 · 15.04.2008, 14:19

А что? TextToColumns не подходит?

Код:

Range("A1:A10").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited

IgorGO · 15.04.2008, 14:51

эксель-решение:
в колонку В пишем

Код:

=ЛЕВСИМВ(A4;НАЙТИ(" ";A4)-1)

в С пишем

Код:

=ПРАВСИМВ(A4;ДЛСТР(A4)-НАЙТИ(" ";A4))

15.04.2008, 14:09	#1
corsarlt Регистрация: 01.04.2008 Сообщений: 5	VBA & Excel задача Всем привет. Помогите пожалуйста решить такую задачку. В одном столбце А1 по A10 вписаны 10 имён и фамилий. Надо сделать так, чтобы код выводил имена в отдельный столбец B1-B10, а фамилии в столбец C1-C10 копируя их из столбца A1-A10. Спасибо за любые ответы.

15.04.2008, 14:19	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	А что? TextToColumns не подходит? Код: `Range("A1:A10").TextToColumns Destination:=Range("B1"), DataType:=xlDelimited` Чем шире угол зрения, тем он тупее.

15.04.2008, 14:51	#3
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	эксель-решение: в колонку В пишем Код: `=ЛЕВСИМВ(A4;НАЙТИ(" ";A4)-1)` в С пишем Код: `=ПРАВСИМВ(A4;ДЛСТР(A4)-НАЙТИ(" ";A4))` Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача коммивояжера в Excel	Lioness	Microsoft Office Excel	3	14.01.2008 11:48
очень громоздкие финансовые модели в Excel, а Excel не тянет	Ragazza	Microsoft Office Excel	7	03.10.2007 20:08
Формирование из excel в ASCII, у меня он формирует по одному клиенту а в Excel нескол	Askat	Общие вопросы Delphi	0	18.07.2007 06:28