Есть книга в которой находится таблица выручек по всем магазинам. Каждый магазин присылает книгу, в которой такая же таблица, только урезанная по строкам. Нужно собрать все эти таблицы из разных файлов в основную. У меня проблема с первым этапом. не могу реализовать проход по всем книгам в папке.  
Алгоритм следующий: 1. открываем файл, присланный с магазина  
                   2. из этой таблицы берем код магазина    
                   3. ищем строку в файле с основной таблицей соответствующий коду магазина  
                   4. копируем данные из маленькой таблицы в большую

в каждой ячейки записано по строке например:  
в первой : "ФВ_СМО_С12"  
во второй : "ФВ_СМО_Р05"  
Нужно провести сравнение частей строк т.е. "если средние части строки совпадают (в данном случае "СМО"), то..."  
Просто посмотреть содержится ли "СМО" в обоих нельзя т.к. может быть любое значение

Добрый день. Подскажите как организовать поиск ячейки, в которой содержится строка без пробелов, по символам содержащимся в строке. Функцию необходимо реализовать в теле макроса

Добрый день. Подскажите, как выполнить условие "если в ячейки не текст, то.."?

'------------------------------  
i=10  
str=0  
art=0  
While Not IsEmpty(Cells(i, 1)) 'пробегаем по всем строкам  
 
for j=0 to kmag-1 'бежим по столбцам    
if Cells(i, 27 + j * 5 + 5)<0 then ' если значение ячейки было изменено, то  
str= Cells(i, 27 + j * 5 + 1).Value 'запоминаем значение ячейки которую необходимо перенести в 'другую книгу  
art=Cells(i,1).Value ' ключ по которому мы будем искать нужную строку в другой книге  
mag=Cells(8, 27 + j * 5 + 1).value ' ключ для нужного столбца  
sv=Cells(i, 27 + j * 5 + 5).value ' тоже нужно перенести  
(открываем вторую книгу)*  
While Not IsEmpty(Cells(k, 1)) 'пробегаем по всем строкам этой книги  
if art=Cells(k,1).Value then 'находим нужную нам строку  
for l=0 to kmag-1 'бежим по столбцам  
if Cells(8, 27 + l * 5 + 1)=mag then 'находим столбец  
Cells(k, 27 + l * 5 + 1).Value=str '    
Cells(k, 27 + l * 5 + 5).value=sv    
end if  
Next l  
end if  
k=k+1  
wend  
end if  
next j  
i=i+1  
wend  
'--------------------------------  
 
* Вопрос собственно в том как сделать вот этот перенос из одной книги в другую...

Подскажите как определить максимум в диапазоне, у меня сейчас вот так Application.Max(Cells(i, 52), Cells(i, 53), Cells(i, 54), Cells(i, 55)), но реальный диапазон гораздо больше.

Есть необходимость посчитать сумму трех столбцов для каждого магазина (ОСТАТОК+РЕЗЕРВ+СВОБОДНО) по всем артикулам. в прикрепленном файле только часть таблицы. всего порядка 8000 артикулов и больше 80ти магазинов. Как правильно организовать цикл?