anthony_marrey

Думаю, с этим справится скрипт на VBA, открывающий все файлы, лежащие в определённой папке, а затем сохраняющий их. Сделать можно через цикл For each, логика следующая: для каждой книги, лежащей по адресу Х произвести открытие, а потом сохранение как в нужном формате по адресу Y. Я таким образом около 1000 книг еженедельно в одну объединяю.

Dim Counter as Double
Dim cellNum, Cycle as Integer
cellNum = 1 
for Cycle = 0 to UBound(y)
    if y(Cycle).Value < 0 then 
        Cells(2,cellNum).Value = y(Cycle).Value
        cellNum = cellNum + 1 
        Counter = Counter + y(Cycle).value
     End if
next Cycle

В Counter записывается сумма всех отрицательных элементов, но что с ней сделать Вы в теме не написали)

Как вариант - добавить ещё один столбец, в нем формула =если(A1=B1;1;0), растянуть до конца, потом через фильтр (Ctrl+Shift+L) удалить все строки, где в 3 столбце стоит единица, а затем и сам столбец