1、首先打开需要编辑的Excel表格，右键单击工作表的标签，选择打开“查看代码”。2、然后在弹出来的窗口中点击输入：Sub 删除重复行()Dim xRow As IntegerDim i As IntegerxRow = Range("B65536")End(xlUp)RowFor i = 2 To xRowFor j = i + 1 To xRowIf Cells(j, 2) = Cells(i, 2) ThenRange(Cells(j, 1), Cells(j, 256))RDeletej = j - 1xRow = xRow - 1End IfNextNextEnd Sub3、然后点击左上角的保存按钮进行保存，之后运行该代码或运行宏“删除重复行”即可。4、然后就可以删除重复数据的整行。
Sub test()Dim arr, c, a&arr = Intersect(Range("a:d"), ActiveSUsedRange)Set Zd = CreateObject("dictionary")For Each c In arrIf c <> "" Then a = Zd(c): Zd(c) = a + 1Next[f2]Resize(ZCount) = ATranspose(Zkeys)[g2]Resize(ZCount) = ATranspose(Zitems)End Sub
考虑到用窗体和控件在这里不方便，就用INPUTBOX来代替了 Sub xm() Dim xm$, ys1%, ys%, rn As Range xm = InputBox("请输入要查询的姓名，并输入显示背景颜色代码，例如：张三，1" & vbCr & "红色 绿色 蓝色 黄色 紫色 青色 桔色") xm = Replace(xm, "，", ",") If IsNumeric(Split(xm, ",")(1)) Then If InStr(xm, ",") Then ys1 = Split(xm, ",")(1) Select Case ys1 Case 1 ys = 3 Case 2 ys = 4 Case 3 ys = 5 Case 4 ys = 6 Case 5 ys = 7 Case 6 ys = 8 Case Else ys = 46 End Select End If For Each rn In SUsedRange If Value = Split(xm, ",")(0) Then IColorIndex = ys Next Else MsgBox "输入有误，请重新输入" End IfEnd Sub
你这样只能遍历整行才行，但是有个问题，比如：第1行为：1 2 3 4 1 2 3 4 ，像这样的数据，1234都重复了一遍，那整行都是蓝色的，是否重复数据只有一个？如果多个重复数据，那做了和没做没啥区别，只是知道它重复了。代码如下：Sub a() '被重复和重复的都筛选Dim i As LongDim j As LongDim k As LongFor i = 3 To Range("A3")End(xlDown)Row For j = 1 To Cells(i, 1)End(xlToRight)Column For k = 1 To Cells(i, 1)End(xlToRight)Column If j = k Then GoTo l1 End If If Cells(i, j) = Cells(i, k) Then Cells(i, j)IColorIndex = 5 End Ifl1: Next k Next jNext iEnd SubSub b() '只筛选被重复的，不筛选重复的Dim i As LongDim j As LongDim k As LongFor i = 3 To Range("A3")End(xlDown)Row For j = 1 To Cells(i, 1)End(xlToRight)Column For k = j + 1 To Cells(i, 1)End(xlToRight)Column If Cells(i, j) = Cells(i, k) Then Cells(i, j)IColorIndex = 5 End If Next k Next jNext iEnd Sub这里做了两个，一个只筛选一半，一个全部筛选，你试试，有疑问再追问。望采纳，谢谢。
直接在B列录入公式就能实现B1=IFERROR(MATCH(C1,A:A,0),"不重复")向下填充，在C列输入内容，如果重复了就会显示数字，指出重复数据在A列的位置，不重复就显示不重复
1、可以用countif函数来查重复项，如 =IF(COUNTIF(A:A,A1)>1,"重复","")2、用条件格式提醒，设置条件 =countif(A:A,A1)>1,重复的格式填充为红色：
假设人名在a列，人名后面的数值在b列；第一个：=sumif(a:a,人名,b:b)第二个:=countif(a:a,人名)第二个可以在条件格式里设置，条件为公式，公式内容：=or(countif($a:$a,a1)>1)，并设置格式以上在a1格设定后，用格式化刷一下整个a列。
=IF(COUNTIF(A:A,A1)>1,"重复",""） 假设数字在A列，数字由第二行开始，在B2输入公式：=IF(COUNTIF(A:A,A2)>1,"重复","")把鼠标放在B2单元格的右下角变成黑十字时按鼠标左键向下拉，再以B列排序或筛选，将标有“重复”的行删除即可。
如下图，单元格B2输入公式=COUNTIF(A:A,A2)下拉，数值非1的即是有在A列中有重复值。
1、在表格或数值数组的首列查找指定的数值，并由此返回表格或数组当前行中指定列处的数值。当比较值位于数据表首列时，可以使用函数 VLOOKUP 代替函数 HLOOKUP。 2、在 VLOOKUP 中的 V 代表垂直。 语法 VLOOKUP(lookup_value,table_array,col_index_num,range_lookup) Lookup_value 为需要在数组第一列中查找的数值。Lookup_value 可以为数值、引用或文本字符串。 3、Table_array 为需要在其中查找数据的数据表。可以使用对区域或区域名称的引用，例如数据库或列表。
在编辑Excel表格时，发现表格内有很多相同数据，那怎么找到Excel表格中相同的数据并标记呢，excel怎么查找相同数据并标记，下面一起来看看吧。1、首先打开需要查找相同数据并标记的Excel表格，点击需要查找的相同数据，点击【开始】下的【填充颜色】。2、将数据的背景颜色填充为红色之后，双击【格式刷】功能，出现绿色的虚线框。3、接着找到【查找和替换】功能，也可以使用快捷键：Ctrl+F、Ctrl+H，在【查找】中输入需要查找的数据，点击【查找全部】。4、最后在查找到的数据中，点击就可以将相同的数据标记，每点击一项，就标记一项。
假设sheet1和sheet2的名字都在A1:A30里，在sheet2的B1格里输入公式(注意符号都为英文格式的)：=VLOOKUP(A1,Sheet1!A$1:B$30,1,)copy这一公式到A2:A30里，凡是出现"#N/A"的都是没有重复的。B1公式为：=IF(ISNA(VLOOKUP(A1,Sheet2!A:A,1,)),"不存在","")B1公式为：=IF(ISNA(VLOOKUP(A1,Sheet2!A:A,1,)),"","存在")