Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 31.01.2008, 12:55   #1
инженер
 
Регистрация: 31.01.2008
Сообщений: 5
По умолчанию Разделить строку на три столбца

Добрый день!
Прошу помощи. Есть текст ( очень с большим трудом вытащил его из таблицы в формате PDF (была защищена от копирования)).
В итоге скопировал в Excel, но нужные мне столбцы объеденились в одну строку. Как это можно разделить??
Нужно, что бы в первом столбце были цифры, во втором текст на английском и в третьем текст на русском.
В приложении кусочек того, что у меня есть.
Вложения
Тип файла: rar Книга1.rar (2.5 Кб, 29 просмотров)
инженер вне форума
Старый 31.01.2008, 13:39   #2
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Формулы для ячеек :

=LEFT(A3; SEARCH(" ";A3))
=MID(A3; SEARCH("[a-z]";A3); SEARCH("[а-я]";A3)-SEARCH("[a-z]";A3))
=RIGHT(A3; LEN(A3)-SEARCH("[а-я]";A3))

делят текст из ячейки A3 на три части:

число (английский текст) (русский текст)

формулы для OpenOffice
Включить режим шаблонов при поиске
Сервис / Параметры / OpenOffeice.org calc / Вычисления / Позволить регулярные выражения в формулах
alexBlack вне форума
Старый 31.01.2008, 14:06   #3
инженер
 
Регистрация: 31.01.2008
Сообщений: 5
По умолчанию

Спасибо. Но не могу включить режим шаблонов при поиске.
Сервис / Параметры / OpenOffeice.org calc / Вычисления / Позволить регулярные выражения в формулах
У меня нет "OpenOffeice.org calc ". Может у меня не тот Excel?
инженер вне форума
Старый 31.01.2008, 14:17   #4
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Могу предложить решение с помощью VBA (см. вложение).
Откройте файл, запустите макрос "Razbor". Результат на листе 2.
Вложения
Тип файла: rar Razbor.rar (8.8 Кб, 100 просмотров)
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 31.01.2008, 14:47   #5
инженер
 
Регистрация: 31.01.2008
Сообщений: 5
По умолчанию

ТО alexBlack and SAS888

ВЫ просто волшебники!!!!!! Воспользовался макросом SAS888. Все получилось моментально. OpenOffice.org я скачал, но пока не установил.
Пусть это не покажется наглостью, но есть еще одна штучка, которую хотелось бы сделать. В третьем столбуе (там где идет текст на русском языке) хотелось бы добавить в каждую строчку "Снятие и установка".
Как это можно добавить?
инженер вне форума
Старый 31.01.2008, 14:51   #6
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Строку добавить ?
тогда

=RIGHT(A3; LEN(A3)-SEARCH("[а-я]";A3))+"Снятие и установка"
alexBlack вне форума
Старый 31.01.2008, 16:08   #7
инженер
 
Регистрация: 31.01.2008
Сообщений: 5
По умолчанию

Цитата:
Сообщение от alexBlack Посмотреть сообщение
Строку добавить ?
тогда

=RIGHT(A3; LEN(A3)-SEARCH("[а-я]";A3))+"Снятие и установка"
Побоялсяя ставить себе OpenOffice. Думаю потом начнуться проблемы с обычным microsoft office. Как это сделать в обычном Excel?
инженер вне форума
Старый 31.01.2008, 16:37   #8
alexBlack
Участник клуба
 
Регистрация: 12.10.2007
Сообщений: 1,204
По умолчанию

Я так понял предложенным макросом Вы уже воспользовались и у вас три колонки данных. Например, третья в D1. В ячейка E1 пишем:

=D1+"Снятие и установка"

Копируем ячейку E1 во все ячейки колонки E.
Колонку D скрываем (не удаляем)
alexBlack вне форума
Старый 31.01.2008, 16:48   #9
инженер
 
Регистрация: 31.01.2008
Сообщений: 5
По умолчанию

Цитата:
Сообщение от alexBlack Посмотреть сообщение
Я так понял предложенным макросом Вы уже воспользовались и у вас три колонки данных. Например, третья в D1. В ячейка E1 пишем:

=D1+"Снятие и установка"

Копируем ячейку E1 во все ячейки колонки E.
Колонку D скрываем (не удаляем)
Не получается. Пишет #ЗНАЧ
Уже пробовал по всякому - никак
инженер вне форума
Старый 31.01.2008, 20:18   #10
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

вместо + надо & (Shift + 7 на анг. языке)

=D1 & " Снятие и установка"
Pavel55 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Вставка столбца в StringGrid artemavd Общие вопросы Delphi 8 29.07.2008 17:48
Имя столбца Nurik Microsoft Office Excel 2 09.04.2007 09:31
сумма столбца zetrix БД в Delphi 1 01.11.2006 15:42