Question

VBA中删除指定一行以及从这行开始所以数据怎么写

行定义名：kehu_kaishi_hang

Answer 1

Sub 删除指定行()
Dim rg As Range
endrow = Range("A65536").End(xlUp).Row
For Each rg In Range("A1:A" & endrow)
If rg = "指定内容" Then
rg.EntireRow.Delete
End If
Next
End Sub
大概是这个意思么？

Answer 2

Sub Macro1()
'
' Macro1 Macro
'
Dim i As Long, j As Long

j = Val(InputBox("请输入要删除的起始行数："))
Debug.Print ActiveSheet.UsedRange.Rows.Count
For i = ActiveSheet.UsedRange.Rows.Count To j Step -1
ActiveSheet.Rows(i).Delete
Next
End Sub

Answer 3

rows(指定行).end(xldown).delete 从指定行向下删除

rows(指定行).end(xlup).delete 从制定行向上删除