[已解决]代码错在那儿了。请朋友们帮下忙！

yjwdjfqb

Sub 删除选定列有空格的行()
    Dim x As Range
    On Error Resume Next
    Set x = Application.InputBox(prompt:="请选择要操作的列或者列区域", Title:="提示", Default:="请选择", Type:=8)
    If x Is Nothing Then Exit Sub
    Range("x").SpecialCells(xlCellTypeBlanks).Select
    Selection.EntireRow.Delete
End Sub


我是想，利用这个选择框，选择我的操作列，或者是操作列的指定区域（如：　弹出选择框时，我选择了，$C$5：$C$15，这个列区域时，就是要删除$C$5：$C$15之间有空格的行；当选择$C:$C时，就是删除C列中，有空格的行。）

请大家帮我修改下。

删除指定列、列区域的空格行.rar (8.39 KB, 下载次数: 6)

2013-12-28 10:59 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

fffox

2013-12-28 15:52

Range("x").SpecialCells(xlCellTypeBlanks).Select
改为
x.SpecialCells(xlCellTypeBlanks).Select

跳转到最佳答案楼层

jio1ye

这个代码就不是修改了。压根就是让人家重编。
请大伸出手

fffox

Range("x").SpecialCells(xlCellTypeBlanks).Select
改为
x.SpecialCells(xlCellTypeBlanks).Select

yjwdjfqb

fffox 发表于 2013-12-28 15:52
Range("x").SpecialCells(xlCellTypeBlanks).Select
改为
x.SpecialCells(xlCellTypeBlanks).Select

谢谢朋友的帮助，解决了！