在Cell中获取SheetName的函数

Question

如果单元格A1不为空，我使用此函数在单元格中输入工作表名称。问题是，当我尝试立即使用此公式更新所有工作表时，每次重新计算时，它都会将所有工作表中的单元格重命名为活动工作表名称。如何将其应用于所有工作表中的列，以便显示“＆＃39; SHEETNAME？

Function SheetName()
 SheetName = ActiveSheet.Name
End Function

使用以下方式致电：

=IF(A2="","",SheetName())

Answer 1

您可以使用Application.Caller：

Function SheetName()
    SheetName = Application.Caller.Parent.Name
End Function

替代Excel公式（来自https://exceljet.net/formula/get-sheet-name-only）：

= MID(CELL("filename", A1), FIND("]", CELL("filename", A1)) + 1, 255)