发布时间：
直接在B列录入公式就能实现B1=IFERROR(MATCH(C1,A:A,0),"不重复")向下填充，在C列输入内容，如果重复了就会显示数字，指出重复数据在A列的位置，不重复就显示不重复
考虑到用窗体和控件在这里不方便，就用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这里做了两个，一个只筛选一半，一个全部筛选，你试试，有疑问再追问。望采纳，谢谢。
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
EXCEL检查重复么？如果数据都在A列，那么就在B1写上=countif(A:A,A1)，向下拉。如果数据超出15位，那么写=countif(A:A,A1&"*")，向下拉。
在B2中输入=VLOOKUP(A10,$A$5:$B$10,2,0)
在Excel表格中用countif函数来找出重复项。首先打开电脑上的Excel表格数据。在空白单元格中输入查找的信息，在后一个单元格中输入=countif。首先选中第一个条件值，查找的范围，输入第二个条件值，查找的内容，输入完成后，按回车即可。根据以上步骤就可以用countif来进行函数查重了
表格中的数据重复有时是不正常的——明明知道公司没有重名的员工，却出现了重名;本来是唯一的身份证号却出现在两个人的头上。重复有时发生在一张表中，需要找出;有时又需要找出不在一张表中的重复数据。那么，如何快速找到重复项目呢?其实用两个小函数IF和COUNTIF就能全搞定。 就拿下面的这张人员表来说，其中就出现了一些重名记录，需要快速找出来。 现在，用一个小公式即可搞定。创建一个辅助列B，用来存放判断重复的标志，若有重复就标“重复”，不重复就什么也不标。在B2单元格中输入公式并回车： =IF(COUNTIF(A:A,A2)>1,"重复","") 然后通过向下拖动B2单元格右下角的小方块填充柄按钮(或双击填充柄)，这样就会自动填充每一行的重复情况。之后再看，所有重复的数据行就露出了“马脚”。 为了使重复的项目看起来更显眼，我们还可以给重复的项目加上颜色。通过“开始→条件格式→突出显示单元格规则→重复值”路径进行设置。 在“重复值”对话框中，给“重复”值设置某种填充色和文字颜色，然后确定。 之后我们看到，所有重复的项目就被标上指定的颜色了。 如果人员登记表中出现了重复的身份证号码，怎么弄呢?请看下表，密密麻麻的数字，你能一下子判断出有几个重复的吗? 其实，我们只需在单元格B2中使用另一个公式： =IF(COUNTIF(A:A,A2&"*")>1,"重复","") 同样用填充柄将这个公式应用到后续的各行中，就会自动给出重复的身份证出现的位置。 一个表格可采用上述方法来查重。那么，如果要比较两个表格中的重复数据，该怎么办呢?以下面的两个表为例，表Sheet1中存放了一列号码，表Sheet2中存放了另一列号码，两表中可能会有重复出现。那么，如何比较两个表格找出所有重复项呢? 我们在表Sheet1的B列设置一列判断重复，定位到表Sheet1的B2单元格，输入如下公式： =COUNTIF(SHEET2!A2:A12,A2) 回车之后用该单元格右下角的填充柄向下填充到该列最后，可以看到所有标示为1的即是两表中重复出现的人名。 由于我们对不重复的项并不关心，它们会干扰我们的视线，因此需要将不重复的项目屏蔽掉。通过“数据→筛选”命令，点击筛选框的小三角进行筛选设置，选择值为1的项目进行筛选。 筛选之后我们看到，窗口中就只剩下重复的项目，这下就一目了然了。 最后，对上述函数简单讲解一下： COUNTIF函数的两个参数，第一个参数SHEET2!A2:A12定义表Sheet2的要比较的数据区域A2到A12，第二个参数A2代表当前表(表Sheet1)的当前光标所在表格，统计A2相同的个数。 如果最后的返回值为0，则说明当前单元格没有与另一个表中重复的数据。 灵活利用两个小函数解决了各种表格数据重复的问题，这就是Excel的魅力所在。
在word里查重的具体操作步骤如下： 1、首先打开word文档，点击开始选项卡，点击打开右上角的【查找和替换】窗口。 2、鼠标单击【查找内容】文本框，输入你要查找的内容，特别提醒朋友们注意输入的内容是双引号中的内容，不包括双引号，否则会报错查找不到。 3、然后点击【替换为】文本框，输入"\1\2" ，单击勾选下面【使用通配符】前的复选框打勾，如果找不到这个复选框，就是出于简略窗口模式，可以点击窗口下方的【高级】按钮打开。 4、最后不断重复的点击【全部替换】按钮，点击次数不限，直到弹出一个对话框窗口【word已完成对文档的搜索并已完成0处替换】为止。
论文不都是word文档形式的吗？paperpp上可以直接提交word文档查重，导入附件就可以了，现在还有免费字数的活动，你可以去试试。
在word里查重的具体操作步骤如下：1、首先打开word文档，点击开始选项卡，点击打开右上角的【查找和替换】窗口。2、鼠标单击【查找内容】文本框，输入你要查找的内容，特别提醒朋友们注意输入的内容是双引号中的内容，不包括双引号，否则会报错查找不到。3、然后点击【替换为】文本框，输入"\1\2" ，单击勾选下面【使用通配符】前的复选框打勾，如果找不到这个复选框，就是出于简略窗口模式，可以点击窗口下方的【高级】按钮打开。4、最后不断重复的点击【全部替换】按钮，点击次数不限，直到弹出一个对话框窗口【word已完成对文档的搜索并已完成0处替换】为止。
一、在word菜单中，编辑-替换-“查找内容”栏输入重复的内容-“替换为”栏不输任何内容-全部替换。这样就删除了所有的重复内容。二、如果重复的内容多，可将word文档制表后，用易表或电子表格进行筛选。