For i As Integer= IntBottom To IntTop Step -1 .AllowEdit = True .Current.Locked=False .Rows(i).Delete Next
很奇诡
如果 从上往下 选择多行,则只能删除最后一行
如果 从下往上 选择多行,可以删除多行
显示的 IntBottom 都是大 IntTop 都是小