从单元格地址中删除文件名

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