如何用宏判断指定列是否有数据，若果有数据删除有数据单元格后的所有行

Deep520

如何用宏判断指定列是否有数据，若果有数据删除有数据单元格后的所有行
如附件中，D10有数据，删除D10单元格所在行（包含D10这一行）后的所有数据

约定的童话

大兄弟，这里好多电话都外泄了，下次记得清理干净再上传啊
Sub 删除()
With Sheet1
Dim i
For i = [c65536].End(xlUp).Row To 2 Step -1
If Cells(i, "d") <> "" Then
Rows(i).Delete
End If
Next
End With
End Sub

liulang0808

Sub aaa()
    Application.ScreenUpdating = False
    Set Rng = Application.Intersect(Columns(4), ActiveSheet.UsedRange).Offset(1)
    Set Rng = Rng.SpecialCells(xlCellTypeConstants, 23)
    If Not Rng Is Nothing Then Rng.EntireRow.Delete
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。

xd3210

Sub deleterow()
Dim ir As Integer
Dim itotalr As Integer
ir = Range("d1").End(xlDown).Row
itotalrow = Sheet1.UsedRange.Rows.Count
Rows(ir & ":" & itotalrow).Delete
End Sub

Deep520

约定的童话 发表于 2018-9-20 11:00
大兄弟，这里好多电话都外泄了，下次记得清理干净再上传啊
Sub 删除()
With Sheet1

好的，谢谢大神的帮忙

Deep520

xd3210 发表于 2018-9-20 11:08
Sub deleterow()
Dim ir As Integer
Dim itotalr As Integer

不行啊，还是有点问题，我这里在另一个表中用就抛异常了，可以加你QQ帮忙看一下吗
我的QQ：1466335917