макрос - Microsoft Office Excel

Demonmov · 20.01.2009, 22:34

Помогите написать макрос, или подскажите как можно по другому сджелать. Нужно скопировать определенные фрагменты текста из текстового документа в таблицу Excel с определенной зависимостью.
Например есть в текстовом документе есть две колонки типа
А 12
В 34
С 83
а в таблице Excel есть колонка
А
В
С
и необходимо вставить для каждой ячейки соответствующее значение - 12, 34, 83. Подскажите, пожалуйста, как это сделать.

EducatedFool · 20.01.2009, 22:38

Цитата:

Например есть в текстовом документе есть две колонки типа
А 12
В 34
С 83

Текстовые документы бывают разные...

Что за текстовый документ?
Если документ Word, то в каком виде представлены данные - в форме таблицы, или отдельных абзацев?
Если обычный текстовый файл, то какие используются разделители (один пробел, несколько, другие разделители)?

Есть ли в этих файлах повторяющиеся значения?

Прикрепите к сообщению оба файла - так будет проще.

Demonmov · 20.01.2009, 22:43

Это обычный текстовый файл. Сейчас не имею возможности выложить файлы, выложу утром.

Sasha_Smirnov · 21.01.2009, 03:31

То, что вы дали как пример, я выделил, скопировал, вставил в открытый документ Word, затем, выделяя пробелы (между А и 12 и далее), нажимал клавишу Tab* и, наконец, опять всё выделил, скопировал — и вставил в Excel. И всё стало на место — по колонкам.
(Описание же сих действий заняло в 20 раз больше времени: 10 минут.)
____________
* при этом, если включены непечатаемые символы, Word показывает (между колонками) символы табуляции — стрелки

Demonmov · 21.01.2009, 10:41

Я ж то просто пример привел, а те значения которые надо ставить находятся в текстовом документе не в соседней колонке, и вообще длина колонки очень большая, в общем надо чтоб автоматом тянуло. Вот я выложил для примера фрагмент текстового документа, посмотрите, пожалуйста.

EducatedFool · 21.01.2009, 11:15

Цитата:

Вот я выложил для примера фрагмент текстового документа

Да уж, действительно, фрагмент... оставили хотя бы несколько десятков строк...

В файле в каждой строке одинаковое количество точек?
Есть пустые строки?
Встречаются ли точки в позициях списка?
(встречаются ли строки типа ТОВ. АБЗ................................ ..................... 13) ?

Цитата:

вообще длина колонки очень большая

Длина колонки в текстовом файле, или в таблице Excel ?
Сколько примерно строк? (1000, 10 000, 100 000, или больше)

SAS888 · 21.01.2009, 11:57

Посмотрите вложение. Может устроит.

Demonmov · 21.01.2009, 13:26

В каждой строке одинаковое количество точек, пустых строк нет, но есть разделительные строки типа ------------, в позициях списка встречаются точки. Длина колонки большая , это я про текстовый файл, 1000 строк точно есть, но в таблице длина колонки такая же.

SAS888 · 22.01.2009, 08:39

А почему Вас не устраивает мой вариант?
Предлагаю еще один пример с извлечением и названий, и значений без открытия текстового файла.

Demonmov · 22.01.2009, 11:17

Ваш вариант очень хороший, но я вижу что макрос отбирает последние значения в текстовом документе, а вот если такой формат текстового документа

А 12 12.01.08
В 34 13.01.09

тогда макрос будет вставлять дату в ячейки, а не нужные 12,13. Как бы так это сделать

20.01.2009, 22:34	#1
Demonmov Пользователь Регистрация: 20.01.2009 Сообщений: 43	макрос Помогите написать макрос, или подскажите как можно по другому сджелать. Нужно скопировать определенные фрагменты текста из текстового документа в таблицу Excel с определенной зависимостью. Например есть в текстовом документе есть две колонки типа А 12 В 34 С 83 а в таблице Excel есть колонка А В С и необходимо вставить для каждой ячейки соответствующее значение - 12, 34, 83. Подскажите, пожалуйста, как это сделать.

21.01.2009, 03:31	#4
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	То, что вы дали как пример, я выделил, скопировал, вставил в открытый документ Word, затем, выделяя пробелы (между А и 12 и далее), нажимал клавишу Tab* и, наконец, опять всё выделил, скопировал — и вставил в Excel. И всё стало на место — по колонкам. (Описание же сих действий заняло в 20 раз больше времени: 10 минут.) ____________ * при этом, если включены непечатаемые символы, Word показывает (между колонками) символы табуляции — стрелки Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html Последний раз редактировалось Sasha_Smirnov; 21.01.2009 в 03:33.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос	kot_842003	Microsoft Office Excel	2	26.12.2008 05:24
Макрос 2007	ditoch	Microsoft Office Excel	6	24.06.2008 11:09
Таймер на макрос	Hant	Microsoft Office Excel	3	21.05.2008 20:10
Макрос	Мингиян	Microsoft Office Access	1	24.01.2008 21:54
Назначить макрос	Nando	Microsoft Office Excel	5	07.01.2008 14:33

20.01.2009, 22:43	#3
Demonmov Пользователь Регистрация: 20.01.2009 Сообщений: 43	Это обычный текстовый файл. Сейчас не имею возможности выложить файлы, выложу утром.

21.01.2009, 13:26	#8
Demonmov Пользователь Регистрация: 20.01.2009 Сообщений: 43	В каждой строке одинаковое количество точек, пустых строк нет, но есть разделительные строки типа ------------, в позициях списка встречаются точки. Длина колонки большая , это я про текстовый файл, 1000 строк точно есть, но в таблице длина колонки такая же.

22.01.2009, 11:17	#10
Demonmov Пользователь Регистрация: 20.01.2009 Сообщений: 43	Ваш вариант очень хороший, но я вижу что макрос отбирает последние значения в текстовом документе, а вот если такой формат текстового документа А 12 12.01.08 В 34 13.01.09 тогда макрос будет вставлять дату в ячейки, а не нужные 12,13. Как бы так это сделать