将 sheet 名称重命名为 table 名称

Question

我从 SQL 导入了一堆数据到我的 Excel。所以我有一堆 sheet 像这样：

每个 sheet 都有一个 table 名称，我可以在此处的 table 查看区域中查看：

我想知道是否有任何方法可以将 sheet 批量重命名为 table 的名称。

Answer 1

尝试这样的事情

Sub RenameSheetToTableName()
    Dim ws As Worksheet
    Dim tbl As ListObject

    For Each ws In ThisWorkbook.Sheets
        On Error Resume Next
        Set tbl = ws.ListObjects(1)
        On Error GoTo 0
        If Not tbl Is Nothing Then ws.Name = tbl.Name
    Next ws
End Sub

将 sheet 名称重命名为 table 名称

Rename sheet name to table name

excel

excel-2007

excel-2010