Excel-使用表格复制工作表时如何重设默认表格名称

Question

我有一本工作簿，其中有一个工作表“ Sheet1”在该工作表上，我有一张表的默认名称为“ Table1”当我在同一工作簿中复制工作表（右键单击->移动或复制）时，我得到工作表“ Sheet1（2）”。此工作表上的表自动命名为“ Table13”。我在复制的工作表中进行了一些处理，然后将其删除。仅保留工作表的原始Sheet1。

每次我复制Sheet1时，复制的工作表中的表都会增加一个。另外，如果我移除工作表并添加新的工作表。它不断增加。

我使用工作簿和Sheet1作为模板，并通过宏创建许多副本。现在，新的表名已增加为“ Table21600”。我发现当我达到“ Table21650”时，Excel将溢出。

所以，我需要一种方法来重置添加表的名称计数器。

有人知道如何实现吗？

Answer 1

您可以通过您的宏代码访问（和更改）每个表（“ ListObject”）的名称，如本示例所示：

Sub ListAllListObjectNames()

Dim wrksheet As Worksheet
Dim lstObjct As ListObject
Dim count As Integer

count = 0
For Each wrksheet In ActiveWorkbook.Worksheets
    For Each lstObjct In wrksheet.ListObjects
        count = count + 1
        lstObjct.Name = "Table_" & CStr(count)
        Debug.Print wrksheet.Name, ": ", lstObjct.Name
    Next
Next

End Sub