作者：乔山办公网日期：
返回目录：excel表格制作
Sub 删除重复数据()'以col列为条件删除的重复行数据'本例是删除标题为sheet1的EXCEL表中以A列（从A2单元格开始）为条件的重复韩国数据Application.ScreenUpdating = False'可根据实际情况修改下面三行的结尾值'MsgBox "请确认子表名称是否是当前告警实时监控？"Dim sheetsCaption As String: sheetsCaption = "当前告警实时监控"'MsgBox "请确认或修改到底 删除哪一列的重复数据？"Dim Col As String: Col = "C"Dim Col1 As String: Col1 = "E"'MsgBox "请确认或修改该列的第几行开始核e799bee5baa6e79fa5e98193e58685e5aeb9337查所有数据是否有重复数据？"Dim StartRow As Integer: StartRow = 3'以下不需要修改Dim EndRow As Integer: EndRow = Sheets(sheetsCaption).Range(Col& "65536").End(xlUp).RowMsgBox EndRowDim i As Integer: i = StartRowWith Sheets(sheetsCaption)DoIf Left(.Range(Col1 & i), 4)< "SDR:" Then.Range(Col1 & i).SelectSelection.EntireRow.DeleteEndRow = Sheets(sheetsCaption).Range(Col1 &"65536").End(xlUp).Rowi = i - 1End Ifi = i + 1'MsgBox i'MsgBox EndRow
假设数据在A1：A100中，B1中输入
=IF(A1>1,"是","否")
用自动填充柄下拉,其中返回"是"的就是符合你要求的.
或者不用IF都可以
B1中输入
=A1>1
下拉,其中返回TRUE的就是符合要求的
获取行号，复制到你指定的地方
Worksheets("工作表名称").Range("单元格范围").Find(要查找的值copy).EntireRow.SelectFind 方法返回一个 Range 对象，也就是找到的那个单元格对象
然后再用这个对象的 EntireRow 来引用所在的整行。
注意，上述代码没有容错判断，如果在指zhidao定范围内没有“要查找的值”，代码会出错