如何用VBA删除指定行

最简单的删除方式就是

rows(i).delete。

这里i是变量。你想删除第几行i的位置就填几。比如你要删除第10行就是rows(10).delete.

当然这要看你怎么指定行了。如果有条件的话就要加入if

判断语句。。如果从很多行里找出特定的满足条件的话就还要再加上循环语句。。

Sub cscs()

Dim i%

For i = Range("a" & Rows.Count).End(xlUp).Row To 1 Step -1

If Cells(i, 1) = Cells(i + 1, 1) Then Rows(i).Delete

Next

End Sub

你里面的Fail是单元格里面类容的全部吗或者Fail只是一部分？如果是这样可以使用VBA制作第一步：去掉所有带Fail的行.第二步：去掉重复行.数据在A列,关键字Fail在B列,如下代码去除A列重复,去除B列包含Fail:~~~~~~~~~~~~~~~~SubChekingKeyWordsAndKeepOnly()Dimi,ji=1WhileCells(i,1)""Forj=1To10IfLCase(Cells(i,j).Value)=LCase("FAIL")ThenRows(i).DeleteExitForEndIfIfj=10Theni=i+1EndIfNextjWendi=1WhileCells(i,1)""j=i+1WhileCells(j,1)""IfCells(j,1).Value=Cells(i,1).ValueThenCells(j,1).DeleteElsej=j+1EndIfWendi=i+1WendEndSub

---