Здравствуйте, мастера!

Имею проблему.

Имеется 8 файлов эксель и 8 файлов csv

файлы csv являются служебными таблицами для файлов эксель.
Отношение 1 к 1.
Ключ сложного формата вида (1/100)

1 файлу эксель соответствует 1 файл csv .

Нужны 2 макроса.
Макрос 1 по ключу должен вставлять в пустую ячейку файла эксель из файла csv значение, соответствующее данному ключу.

Пробегать весь диапазон строк. К-во строк - до 1 млн.

Макрос 2 должен сохранять данные из каждого из 8 файлов эксель в единый файл csv.
операции последовательно.
Открытие и обработка 1 файла эксель (вставка данных в пустую ячейку, работает макрос 1), запуск Макроса 2 и закрытие макроса 1. сохранение файла в экселе и в csv (открытие нового файла либо замена содержимого старого) - работает макрос 2, закрытие файла эксель и csv.
Открытие и обработка следующего файла эксель...

И так до восьмого.

Возможно одним макросом, но сложно, наверное.

Возможно. я, как дилетант, чего-то упустила.

С уважением,
Анна.

На уровне сводной таблицы в эксель задачу решила.

Очень долго, файлы большие, особенно служебные таблицы.
csv - подсказали, дескать, быстрее будет.

А какие еще варианты есть?

Файлы выложить стесняюсь. смеяться будете. Это дамское.
там всё в латинице.
вставляется значение от 0 до 1.
в указанный диапазон.
Условие - если ячейка с ключом не пустая, вставляем.
Если пустая - вставка значений закончена.
Поле всегда одно и то же, без сдвижек.

Меняются только записи в файлах эксель.
Если договоримся. будут и другие заказы.

Konst_One,

стебаетесь?

У меня больше миллиона влазит.

Konst_One,

Это к теме не относится.

Условия нужно уточнять?

Konst_One,

2003, старый ХР

Antonariy,
пока ждала ответов, почитала форум.

Толково, только слишком много инфы.

Кое-что исправила. Понятно, что коряво, но как сумела.
работает, но долго.
Соображу заменить диапазоны.

Уточняю вопросы, которые остались:

Возможно ли подобное провернуть без открытия файла со служебными таблицами?

Возможно ли подобное провернуть с файлом csv?

Вот это провернуть:

Sub Ìàêðîñ1()
'
' Ìàêðîñ1 Ìàêðîñ
'
' Ñî÷åòàíèå êëàâèø: Ctrl+z
'
Sheets("Âåð").Select
Range("S2").Select
Selection.ClearContents
Dim strFileToOpen
Dim wrkBook As Workbook
strFile = "D:\0 SL\ïðîáà\ÑëÒàáñ1.xlss"
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-1]&""/""&RC[-13],[ÑëÒàáñ.xlsx]Ëèñò1!C5:C7,3,0)"
Selection.AutoFill Destination:=Range("S2:S16"), Type:=xlFillDefault
Range("S2:S16").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I1").Select
Application.CutCopyMode = False
Selection.AutoFill Destination:=Range("I1:J1"), Type:=xlFillDefault
Range("I1:J1").Select
Range("J1").Select

Set wrkBook = Nothing
End Sub

AndreTM,
гляньте мой ответ буквально поле вашего постинга.

УПС...
Сорри, как вставлять сам текст макроса без искажений?

AndreTM, так?

AndreTM, почему красным цветом?
Планируется революция?

AndreTM, Например, Вам отписать?

Вы в этом разбираетесь?

AndreTM,
попробовала.

Отправила письмо с файлом.

Shocker.Pro,
спасибо большое.

Попробую разобраться.