/**
* Функция замены текста во всех файлах папки
* 
* @param string $folderName - пусть до папки
* @param string $oldText - искомый текст
* @param string $newText - на что меняем текст
*/
function replace_text_files($folderName, $oldText, $newText){
    // открываем текущую папку 
    $dir = opendir($folderName); 
    // перебираем папку 
    while (($file = readdir($dir)) !== false){ // перебираем пока есть файлы
        if($file != "." && $file != ".."){ // если это не папка
            if(is_file($folderName."/".$file)){ // если файл
                $contentFile = file_get_contents($folderName."/".$file); // открываем файл
                //$contentFile = iconv("windows-1251", "utf-8", $contentFile); // для работы с файлами в кодировке windows-1251
                $contentFile = str_replace($oldText, $newText, $contentFile); // делаем замену в тексте
                file_put_contents($folderName."/".$file,$contentFile); // сохраняем изменения
            } 
            // если папка, то рекурсивно вызываем replace_text_files
            if(is_dir($folderName."/".$file)) replace_text_files($folderName."/".$file, $oldText, $newText);
        } 
    } 
    // закрываем папку
    closedir($dir); 

// пример использования
$oldText = 'old text'; // что меняем
$newText = 'new text'; // на что меняем
$folderName = "./files"; // в какой папке ищем
replace_text_files($folderName, $oldText, $newText);

ActiveSheet.ListObjects("Выгрузки_xml").Range.AutoFilter Field:=13, _
       Criteria1:="<>0", Operator:=xlFilterValues             ' фильтранули нули по 13 столбцу
    
    Set wb = GetObject("Наш_файл".xlsx")
    wb.Windows(1).Visible = True
    Workbooks.Open Filename:="Наш_файл".xlsx"
    Workbooks("Наш_файл".xlsx").Worksheets("Лист").Activate        
    If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData      'сняли фильтры если они есть, если их нет обнулили автофильтр
    
    Windows("Отчет_xml.xlsm").Activate  ' Активировать нужную книгу (переключситься)
    Range("M2").Select
    Range(Selection, Selection.End(xlDown)).Select          ' выделили весь отфильтрованный столбец до конца
    Selection.Copy                                          ' скопировали содержимое
    
    Workbooks("Наш_файл".xlsx").Worksheets("Лист").Activate     
    Cells(Range("D4").End(xlDown).Row, [O1].Column).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False     'Спустились до конца столбце D (т.к. он отправная точка, т.к. всегда заполнен) и вставили теперь БПИФы в (M)
    Cells(Range("D4").End(xlDown).Row, [M1].Column).Offset(1, 0).Resize(Selection.Rows.Count).Value = 0                                                        'Вставляем 0 в столбец М(притоки)
    

=ИНДЕКС(источник!$A$2:$A$28;НАИМЕНЬШИЙ(ЕСЛИ(($A$1<источник!$J$2:$J$28);СТРОКА(источник!$A$2:$A$28)-СТРОКА(источник!$A$1);300);СТРОКА(ДВССЫЛ("A1:A"&ЧСТРОК(источник!$A$2:$A$28)))))