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

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

大概是这个意思么？

1、打开Excel表格，使用【Alt】+【F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。

2、在VBA编辑器的菜单栏上面点击【插入】，【模块】。

3、在VBA编辑器的代码框里面输入以下程序：

sub test11

for j = Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1

if cells(1,j)="列名"  then

columns(j).delete

end if

next

end sub

4、点击VBA编辑器工具栏上面的“运行”图标运行程序，或者按下【F5】键运行程序。

5、然后程序运行完成后，将会d出删除多少行的提示，Excel表格上面满足条件的行已经被删除。

---