Шеф дал задание составить список файлов: актов, счет-фактур. А их ТЫСЯЧИ!!!

[golex]

Нужна функция обработки строки, которая из текста ООО филиал "Рога и копыта 2" вырежет всё лишнее, оставив только Рога и копыта 2?

да, именно так, только ООО филиал "Рога и копыта 2" могут быть написаны с разным количеством пробелов и знаков в строке, пример: ООО "Рога и копыта ", ООО филиал "Рога и копыта 2", ООО филиал Москва "Рога и копыта 3", нужно только то что в кавычках.

res3 = "*S-36*" ... res3, , , 1, , , 3 ....ищет позицию в книге и и выдает значение 3-ей ячейки относительно расположения S-36, но в книге возможны повторы данной позиции, пример: S-36..3, S-36..5, нужно выводить сумму значений 8

[EducatedFool]

Sub test()
    Текст = "ООО филиал ""Рога и копыта 2"""
    Результат = ТоЧтоВКавычках(Текст)
    MsgBox "До обработки: " & Текст & vbNewLine & "После обработки: " & Результат

    Текст = "ООО ""Рога и копыта """
    Результат = ТоЧтоВКавычках(Текст)
    MsgBox "До обработки: " & Текст & vbNewLine & "После обработки: " & Результат

    Текст = "ООО филиал Москва ""Рога и копыта 3"""
    Результат = ТоЧтоВКавычках(Текст)
    MsgBox "До обработки: " & Текст & vbNewLine & "После обработки: " & Результат
End Sub

Function ТоЧтоВКавычках(ByVal txt As String) As String
    pos1 = InStr(1, txt, Chr(34)): If pos1 = 0 Then Exit Function
    pos2 = InStr(pos1 + 1, txt, Chr(34)): If pos2 = 0 Then Exit Function
    ТоЧтоВКавычках = Trim(Mid(txt, pos1 + 1, pos2 - pos1 - 1))
End Function