删除按钮代码如下：

With Tables("物料操作窗口_tab_1")

    .StopRedraw

    For Each r As Row In .Rows

        If r.Checked=True Then

           r.Delete

        End If

    Next

    .ResumeRedraw

End With

此主题相关图片如下：qq截图20150106082007.png

当选择多行后点击删除按钮，一次只能删除一个，就好像for...next...语句没执行一样。