vba论文查重

vba论文查重

Sub 重复判断()

Dim i, j, k, n As Integer
Dim t, t1
i = 1
n = 1
Do While Cells(i, 3) <> "" '如果单元格，不为空，进入循环，注意C列不能右空单元格
t = Cells(i, 3) '取出C列单元格
j = Sheet1.Range("a65536").End(xlUp).Row '取出A最大非空单元格
For k = 1 To j '取出A列单元格,比例C列单元格数据，是否等于A列单元格
t1 = Cells(k, 1)
If t = t1 Then
Cells(n, 2) = t1 '如果重复，则对B列单元格赋值
End If
Next
If Cells(n, 2) = "" Then '上面只是判断是否重复，并输入了重复单元格，不重复，单元格就是空的
Cells(n, 2) = "不重复"
End If
n = n + 1
i = i + 1
Loop
End Sub
小白乱写的

vba 表1的a列和表2的a列查重

应该是没有公式可以直接查重后自动标记，但是你可以用VLOOKUP函数另起一列查同，然后手动标红

如何查看多个word文件中内容是否重复？

教授不是有论文查重系统么
要不用vba写个代码处理。

多个EXCEL查重问题

B2=IF($A2='..\[Book2.xls]Sheet1'!$A2,1,'...\[Book2.xls]Sheet1'!$A2)下拉到答案尾

B52＝COUNT(B2:B51)，右拉至试卷完毕。

如果合计低于20的，挑出来再比较。估计没几份了。

供参考