let
    Source = Excel.CurrentWorkbook(),
    #"Filtered Rows" = Table.SelectRows(Source, each [Name] <> "Таблица6"),
    #"Added Custom" = Table.AddColumn(#"Filtered Rows", "names", each Table.ColumnNames([Content])),
    Custom1 = Table.FromColumns( #"Added Custom"[names], #"Added Custom"[Name])
in
    Custom1

let
    Источник = Excel.CurrentWorkbook(),
    #"Filtered Rows" = Table.SelectRows(Источник, each [Name] <> "Таблица1_2"),
    #"Added Custom" = Table.AddColumn(#"Filtered Rows", "columnname", each Table.ColumnNames([Content])),
    Custom1 = let a=#"Added Custom" in #table(List.Distinct(List.Combine(a[columnname])),{})&Table.Combine(a[Content])
in
    Custom1

=ЕСЛИ($I2=$I1;ИНДЕКС(A$2:A$14;АГРЕГАТ(15;6;СТРОКА($A$1:$A$15)/($C$2:$C$15=$I2);2));ИНДЕКС(A$2:A$14;ПОИСКПОЗ($I2;$C$2:$C$14;0)))

=НАИБОЛЬШИЙ($C$2:$C$13;СТРОКА(I1))

Sub Content_for_etfs_convert()
Kill "D:\option programs\отбор\IN\*.*"
Kill "D:\option programs\отбор\OUT\*.*"
  Dim fso
  Set fso = CreateObject("scripting.filesystemobject"):  fso.CopyFolder "C:\Users\Администратор\Downloads\Stock\src\dist\downloads", "D:\option programs\отбор\IN"
 
Set fso = CreateObject("Scripting.FileSystemObject")
cPath = fso.GetParentFolderName(ThisWorkbook.FullName)
 
cPathIn = cPath & "\In\"
cPathOut = cPath & "\Out\"
 
Set Folder = fso.GetFolder(cPathIn)
For Each File In Folder.Files
   If fso.GetExtensionName(File.Name) = "txt" Then
      With fso.OpenTextFile(cPathIn & File.Name, 1, True)
         cIn = .ReadAll
         .Close
      End With
      cOut = vbCrLf & "DATE"
      arrL = Split(cIn, vbLf)
      For i = LBound(arrL) To UBound(arrL)
         If Len(arrL(i)) > 0 Then
            arrD = Split(arrL(i), ",")
            arrD(0) = Right(arrD(0), 2) & "." & Mid(arrD(0), 5, 2) & "." & Left(arrD(0), 4)
            For j = 1 To 4
               cnum = Replace(arrD(j), ".", ",")
               arrD(j) = Replace(CStr(Round(CDbl(cnum), 2)), ",", ".")
            Next
            cnum = Replace(arrD(6), ".", ",")
            arrD(6) = Replace(CStr(Round(CDbl(cnum), 0)), ",", ".")
            cOut = cOut & vbCrLf & Join(Array(arrD(0), arrD(1), arrD(2), arrD(3), arrD(4), arrD(6)), vbTab)
         End If
      Next
      With fso.OpenTextFile(cPathOut & File.Name, 2, True)
         .Write cOut
         .Close
      End With
   End If
Next

 
MsgBox "Ok"

End Sub
Sub replaceTxts()
    Dim fso As New FileSystemObject, curFolder As Folder, curFile As File
    folderPath = "D:\option programs\отбор\OUT\"
    Set curFolder = fso.GetFolder(folderPath)
    For Each curFile In curFolder.Files
        If Right(curFile.Path, 4) = ".txt" Then
            curFile.copy Replace(curFile.Path, ".txt", ".csv")
            curFile.Delete
        End If
    Next curFile
End Sub

  fl = ActiveWorkbook.Path & "\" & "C:\200" & "\" & Cells(i, 3).Value & ".txt"

Sub TXT()
For i = 1 To Range("E2")
    fl = ActiveWorkbook.Path & "\" & Cells(i, 3).Value & ".txt"
    Open fl For Output As 1
         Print #1, Range("A1").Value
    Close 1
Next
End Sub

=ВПР(I4;$A$4:$E$9;ГПР(J4;$B$3:$E$3;1;0)+1;0)

=ЕСЛИ(ЕТЕКСТ(B20);СТРОКА(A1);"")
=ЕСЛИОШИБКА(ИНДЕКС($B$2:$B$14;АГРЕГАТ(15;6;СТРОКА($A$1:$A$49)/ЕНД(ПОИСКПОЗ($B$2:$B$14;$B$19:B19;0));1));"")
=ЕСЛИОШИБКА(ИНДЕКС($C$1:$N$10;ПОИСКПОЗ($B20;$B$1:$B$10;0);ПОИСКПОЗ(C$19;$C$1:$N$1;0));"")
=ЕСЛИОШИБКА(ИНДЕКС($D$2:$N$11;АГРЕГАТ(14;6;СТРОКА($D$1:$N$10)/($B$2:$B$10=$B20)/(D$2:D$10="да");1);СТОЛБЕЦ(A1));"")

=ГПР(E$14;$E$4:$H$8;СТРОКА(A2);0)

=ЕСЛИ(B1="s/l";0;--(A1>ЕСЛИ(0=МИН(ЕСЛИ(($B$1:$B1="s/l");ЕСЛИ($C$1:$C1=C1;$A$1:$A1)));9^9;МИН(ЕСЛИ(($B$1:$B1="s/l");ЕСЛИ($C$1:$C1=C1;$A$1:$A1))))))

=ЕСЛИ(B1="s/l";0;--(A1>--МИН(ЕСЛИ(($C$1:$C1=C1);ЕСЛИ($B$1:$B1="s/l";$A$1:$A1);9^9))))