vba条件删除行 vba删除指定条件的行

Sub a() Dim i&, n&, r&, arr() r = Cells(Rows.Count, 1).End(xlUp).Row ReDim arr(1 To r, 1 To 1) n = 1 For i = 1 To r If i = 1 Then arr(1, 1) = Cells(1, 1) If Cells(i, 1) > Cells(i + 1, 1.

应该这样 If Left(Worksheets(＂Sheet4＂).Range(＂E＂ & i), 3) = ＂HWI＂ Then Rows(i).delete 但这个代码仅能在Sheet4为活动工作表时运行,如果在其它表为活动工作表时,会删除其它表的行.

sub a()dim i as long for i=2 to [a65536].end(3).row if cells(i,1)=cells(i+1,1) and cells(i,2)=cells(i+1,2) then rows(i).delete i=i-1 end ifnext iend sub 或者sub a()dim i as long for i=[a65536].end(3).row to 2 step -1 if cells(i,1)=cells(i-1,1) and cells(i,2)=cells(i-1,2) then rows(i-1).delete end ifnext iend sub

添加一个command,假定数据在A列,从A1开始:Private Sub CommandButton1_Click()Range(＂A1＂).SelectRange(Selection, Selection.End(xlDown)).Selecti = Selection.Rows.CountFor i = i To 2 Step -1If WorksheetFunction.CountIf(Range(＂A＂ & (i - 1) & ＂:A1＂), Range(＂A＂ & i)) > 0 Then Rows(i).DeleteNextEnd Sub

举个例子:表sheet1中删除第3行和第3列(就是C列) Sheet1.Rows(3).Delete Sheet1.Columns(3).Delete 明白了吧?还有不明白的地方找我:wzz3@netease

【F1】快速调出「帮助」任务窗格 当我们在 Excel 使用中遇到问题需要寻求帮助时,除了去问度娘,不妨试试按下键盘上的 F1 功能键. F1 功能键可以快速地调出 Excel「帮助」任务窗格,很多 Excel 知识点都可以在帮助中找到官方的说明.就算是 Excel 高手们,也会在遇到问题时用 F1 去寻找答案.

方法是:选择包含需要删除的数据区域,比如a2:d10,然后按f5键,打开“定位”对话框,单击“定位条件”,打开“定位条件”对话框,选择“空值”,可以批量选择空.

举例来说.sheet1.range(＂1:2＂).delete '删除第1,2行 sheet1.range(＂A:A＂).delete '删除A列.注意Range括号中的写法即可.Sheet1.Rows(2).Delete Sheet1.Columns(1).Delete 这样的写法也可以.

在exce中删除空行和空列的方法有很多,相对而言删除空行较为简单,只需进行筛选,将空白行筛选出来,删除即可,但要删除空列比较困难.因为你不能按列进行筛选删.

sub 删行()dim i as integer for i = 1 to worksheetfunction.countif(rang(＂A:A＂),＂＂&＂＂) If cells(i,＂A＂) like ＂aa＂ and cells (i,＂C＂)=0 then rows(I).delete nextend sub