循环浏览三个工作表并删除每个工作表中的表数据

Question

我将下面的函数组合在一起，循环遍历工作簿中的三个特定工作表，并删除每个工作表中表的表内容。

我得到

"运行时错误9，下标超出范围">

当我调试时

For Each tbl In Sheets(Sht).ListObjects

突出显示。

Sub ClearTableData()
Application.ScreenUpdating = False

Dim tbl As ListObject
Dim Sht As Variant

'Loop through each sheet and table in the workbook
For Each Sht In Array("Sheet1", "Sheet2", "Sheet3")
For Each tbl In Sheets(Sht).ListObjects
'Delete table rows
tbl.DataBodyRange.Delete
Next tbl
Next Sht

Application.ScreenUpdating = True
End Sub

Answer 1

我检查了有问题的选项卡的拼写，注意到有人在"Sheet2"的末尾放了一个空格，因此无法识别。谢谢你的主意，达雷尔。