关于VBA删除excel行的问题续

关键字：excel 更新时间：2018-09-16 11:00:31 166次访问

你好，上次您给一位同学解答怎么删除含特定条件的单元格所在的行，但是那个例子只涉及到一个关键词条件，如果是很多个条件的行都要删除，应该怎么写呢？ 比如把第七列所有含有黑、白、红的行都删除。感谢解答！

Sub s()

   n = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Row

   m = ActiveSheet.UsedRange.Item(ActiveSheet.UsedRange.Count).Column - 1

   For i = n To 1 Step -1

       For j = 1 To m

           If Cells(i, j) <> "" And Cells(i, j + 1) <> "" Then

               Rows(i).Delete

               Exit For

           End If

       Next

   Next

End Sub

使用IF……Then语句即可

相关标签：excel