Удалить имя файла из адреса ячейки

Question

У меня есть эта формула:

=IFERROR(CELL
           ("address",
            INDEX(
              INDIRECT($Q61),
              SUMPRODUCT(
                (INDIRECT($O$5)=$B$1)*(INDIRECT($O$6)=$B$2)*
                (INDIRECT($O$3)=$B$3)*(INDIRECT($O$7)=B$4)*ROW(INDIRECT($O$8))
              )-5
            )
           ),""
         )

который возвращает адрес ячейки:

'[CILT Audit Report - 2018 Week 17.xlsm]Data'!$AO$152

Как усечь имя файла и имя листа, чтобы получить адрес в форме AO152? Я буду использовать этот адрес в VBA, чтобы получить гиперссылку для этого адреса.

Answer 1

Скажем, ваша формула (в ячейке A1) возвращает:

'[CILT Audit Report - 2018 Week 17.xlsm]Data'!$AO$152

В VBA:

Sub GetAddress()
    Dim s As String, arr
    s = Range("A1").Value
    arr = Split(s, "!")
    MsgBox Replace(arr(1), "$", "")
End Sub