With Tables("窗口1_Table1")
Dim cnt As Integer = .Rows.Count - 1 For i As Integer = cnt To 0 Step -1 If .Rows.Count > 0 Then .Rows(i).Delete() End If NextEnd With