如何在Excel的单元格中显示表格或数据透视表的名称？

本文将介绍如何在Excel中将特定表格或数据透视表的名称显示在单元格中。

使用VBA代码在单元格中显示表格或数据透视表名称

使用VBA代码在单元格中显示表格或数据透视表名称

以下VBA代码可以帮助您在单元格中显示指定的表格或数据透视表名称。请按照以下步骤操作：

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后，将下面的VBA代码复制到模块窗口中。

VBA代码：在单元格中显示表格或数据透视表名称

Function getObjName(rng As Range) As String
'Updated by Extendoffice 20180420
    Dim xTable As ListObject
    Dim xPivotTable As PivotTable
    Dim xTableName As String
    Dim xPtName As String
    On Error Resume Next
    xTableName = ""
    xPtName = ""
    Set xTable = rng.Cells(1).ListObject
    xTableName = "Table[" & xTable.Name & "]"
    If xTable Is Nothing Then
        Set xPivotTable = rng.Cells(1).PivotTable
        xPtName = "Pivot [" & xPivotTable.Name & "]"
    End If
    getObjName = xTableName & xPtName
End Function

3. 按下 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。

4. 选择一个空白单元格，在编辑栏中输入公式 =getObjName(A2) ，然后按 Enter 键。参见截图：

注意：

相关文章：

• 如何在Excel中列出所有表格名称？
• 如何在受保护的工作表中通过插入表格行保持表格可扩展性？
• 如何在Excel中重新排列表格列的位置？
• 如何在数据透视表中隐藏零值行？