[已解决]删除选定的行

hannanrenjie

麻烦解释一下，代码的意思。
Sub 删除选定行()
    Dim rng As Range
    On Error Resume Next
    Set rng = Application.InputBox("请选择要整行删除的区域", Type:=8)
    If Not rng Is Nothing Then rng.EntireRow.Delete
End Sub

最佳答案

月排行榜 / 总排行榜

youfang

2014-6-8 20:10

Sub 删除选定行()
    Dim rng As Range '定义变量，单元格类型
    On Error Resume Next '忽略错误语句
    Set rng = Application.InputBox("请选择要整行删除的区域", Type:=8) '选择单元格
    If Not rng Is Nothing Then rng.EntireRow.Delete '如果有选择单元格，删除单元格所在行
End Sub

跳转到最佳答案楼层

youfang

Sub 删除选定行()
    Dim rng As Range '定义变量，单元格类型
    On Error Resume Next '忽略错误语句
    Set rng = Application.InputBox("请选择要整行删除的区域", Type:=8) '选择单元格
    If Not rng Is Nothing Then rng.EntireRow.Delete '如果有选择单元格，删除单元格所在行
End Sub

su45

楼上都解释清楚了！

hannanrenjie

youfang 发表于 2014-6-8 20:10
Sub 删除选定行()
    Dim rng As Range '定义变量，单元格类型
    On Error Resume Next '忽略错误语句 ...

谢谢解答。