主题：快速清除指定区域内容

这样，必须注释掉 SystemReady = False

'SystemReady = False
CurrentTable.EditDelete
'SystemReady = True

如果需要systemready，必须一行一列地删除才行

方法一：这样删除

For i As Integer = CurrentTable.TopRow To CurrentTable.BottomRow
    For n As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
        CurrentTable.Rows(i)(n) = Nothing
    Next
Next

方法二：用变量处理，如

vars("stop") = true

CurrentTable.EditDelete

vars("stop") = false

然后，在你的各个事件里面，判断 vars("stop") 的值，控制是否执行

不理解你的意思，请做一个例子发上来测试。