本文将为您介绍如何在 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 键。参见下图：

备注：