Subcscs()Dimi%Fori=Range("a"&Rows.Count).End(xlUp).RowTo1Step-1IfCells(i,1)=Cells(i+1,1)ThenRows(i).DeleteNextEndSub

IfCells(i,1)="安全奖"AndFormat(Cells(i,5),"yyyy")=2022ThenRows(i).DeleteNextEndSub

比如删除D列空白的行SubS()Dimc%,i%c=Cells(Rows.Count,4).End(3).RowFori=cTo1Step-1IfCells(i,4)=""ThenRows(i).DeleteNextEndSub...

activesheet.range("a2:a"&activesheet.usedrange.rows.count).entirerow.specialcells(xlvisible).delete

工具》宏》录制新宏把自动筛选及删除的过程操作一遍ALT+F11》模块里就可以看到代码了

通过宏删除SHEET2中信息在SHEET1中所在的行代码如下：Subtest()Dimrn2,rn1AsRangeApplication.ScreenUpdating=FalseForEachrn2InSheet2.Range("a2:a1000")ForEachrn1InSheet1.Range("a2...

用辅助列，假设E列，E10公式：=OR(WEEKDAY(B10)={2,4,6,7})下拉；然后对辅助列排序，删除TRUE所在行最后删除辅助列。

Sub删除重复数据()'以col列为条件删除的重复行数据'本例是删除标题为sheet1的EXCEL表中以A列（从A2单元格开始）为条件的重复韩国数据Application.ScreenUpdating=False'可根据实际情况修改下面三行的结尾值'MsgBox"请确认...

代码如下：Sub宏1()Fori=ActiveSheet.UsedRange.Rows.CountTo2Step-1IfVarType(Cells(i,"I"))=vbStringAndVarType(Cells(i,"J"))=vbStringAndVarType(Cells(i,"J"))=vbStringAndVarT...

公式法：F1单元格输入公式=IFERROR(INDEX(A$1:A$1000,SMALL(IF(MATCH($A$1:$A$1000&$B$1:$B$1000&$C$1:$C$1000&$D$1:$D$1000&"",$A$1:$A$1000&$B$1:$B$1000&$C$1:$C$1000&$D$1:$D$1000...