Excel VBA 清除上一次拆分生成的子表

' 清除上一次运行拆分的子表内容 For Each subTable In ThisWorkbook.Worksheets If subTable.Name <> 'data' And subTable.Name <> 'How to operate' Then If subTable.Name Like 'SubTable*' Then subTable.Delete Else subTable.Cells.ClearContents End If End If Next subTable

上面的代码会遍历工作簿中的所有工作表，如果工作表的名称不是'data'和'How to operate'，则会根据工作表名称是否以'SubTable'开头来判断是否是上一次运行拆分生成的子表。如果是子表，则删除该工作表；如果不是子表，则清除该工作表的内容。