EXCEL中VBA如何实现有条件删除整行
EXCEL中VBA如何实现有条件删除整行
以行进行判断，哪一行有连续2个或2个以上不为空单元格，直接删除这行
http://pan.baidu.com/s/1eRxbcdG
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本回答被提问者采纳
怎么通过宏VBA代码删除Excel中有重复数据的整行?
1、首先打开需要编辑的Excel表格，右键单击工作表的标签，选择打开“查看代码”。2、然后在弹出来的窗口中点击输入：Sub 删除重复行()Dim xRow As Integer Dim i As Integer xRow = Range("B65536").End(xlUp).Row For i = 2 To xRow For j = i + 1 To xRow If Cells(j, 2) = Cells...
怎么通过宏VBA代码删除Excel中有重复数据的整行?
1、进入EXCEL,ALT+F11进入VBA编辑器。2、在编辑区输入VBA语言Sub Macro1()， VBA 语言选择整行整列的语句，End Sub。3、在工作表中插入表单控件，并指定到宏Macro1。4、弹出的新界面中，再次点击”确定“。5、现在我们来删除整个表格中的重复数据（也叫重复行）：鼠标选中整个数据表格，在”数据“...
excel vba如何清除大量的整行数据比较快?知道的是要保留下来的行号,清 ...
A：用循环，从最后一行到第一行，查找两个需要保留的行【比如100,90】，用 Rows("91:99").Delete 删除中间不要的行 B: 如果要保留的行数量较少，可以先遍历Collection，将保留行的数据复制到另一个地方，比如另一个表或者 原表格的下方 复制完毕后，将原表格整个删除（rows("").delete ...
Excel如何利用VBA的宏功能删除空行和指定字符的行?
总条件是：只针对A列的数据，不要删B列之后的其他列。最后又说：但是如果A2只是a，删除整行。这是矛盾的 还有，没说明白，是删除数据，还是删除单元格？Public Sub RowDele()Dim H As Long, i As Long, a, b H = Range("A65536").End(xlUp).Row a = Array("A", "a", "@", "#...
Excel中vba的代码,判断是否等于某值做整行删除:
VBA删除行 通常是从下往上查找目标值进行删除 这样才会不会误删 Sub test()For i = 2000 To 1 step -1If Range("AQ" & i).Value = "0" or Range("AQ" & i).text = "#REF!" Then Rows(i & ":" & i).Delete Shift:=xlUpEnd IfNextEnd Sub ...
excel如何把包含某个字符的整行删掉
'用VBA代码实现！'按alt+f11进入VBE编辑窗口，然后选择插入---模块---会打开一个模 '块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口 '按alt+f8打开运行宏窗口，会看到deletedjpg宏，运行它就可以了！'（代码亲测，希望对你有用）'---以下代码部分，可全部复制我的答案到模块...
excel vba 删除符合条件的行
rows("x:n").clearcontents 这句有两处不对：一是对象引用，x和n是你要删除的行号，引号内的xn就成了字符，无法用对应的数字替换，应为 rows(x &":"& n)第二是方法错误：clearcontents 方法只是清除内容，并不删除行，应改为delete方法 这句应改为：rows(x &":"& n).delete ...
关于EXCEL中VBA判断条件删除行
代码如下：Sub 宏1() For i=ActiveSheet.UsedRange.Rows.Count To 2 Step -1 If VarType(Cells(i,"I"))=vbString And VarType(Cells(i,"J"))=vbString And VarType(Cells(i,"J"))=vbString And VarType(Cells(i,"H"))=vbString Then Rows(i).Delete End if Next...
excel vba 删除空白单元格所在的行
1、首先在开发工具中打开VBA编辑器。2、在单元格区域当中输入一些内容。3、在VBA编辑器中插入模块。4、在模块当中输入如下代码，然后运行Sub 清除空白数据行()Dim i As LongFor i=Cells(1048576, 2).End(xlUp).Row To 3 Step-1If Cells(i, 3)="" Then'如果单元格为Cells(i,1).EntireRow....
excel vba 删除制定条件的整行代码 哪里出错?
不能用foreach，你删除完后面的又接上了。用for就好了。sub sc()dim xrow as rangefor i=100 to 1 step -1 if cells(i,"B")=range("C1") then cells(i,"B").entirerow.delete end ifnextend sub
