Question

希望以编程方式删除第X个电子表格之后的所有工作表，并按照我在Excel中的视觉方式（首先是最左边的电子表格）进行排序。因此，如果要删除第4个电子表格之后的所有内容，请删除第5个表格及其后的所有内容。

看起来Sheets对象没有对象的索引或位置类型。我正在考虑一种替代解决方案，该方法创建前四个电子表格名称的数组，并遍历电子表格的所有名称，并检查它们是否不在要删除的数组中，但这可能比检查索引要花更长的时间位置。

有没有这种循环的方法吗？

Answer 1

这应该可以满足您的需求。

If Sheets.Count >= 5 Then
    For sht = Sheets.Count To 5 Step -1
        'If Sheets(sht).Name = "some name" Then   '''USE THIS IF YOU KNOW THE SHEET NAMES
            Application.DisplayAlerts = False
            Sheets(sht).Delete
            Application.DisplayAlerts = True
        'End If
    Next
End If

有没有办法删除特定索引/位置之后的图纸？

1 个答案: