求助！请高手赐教，我需要用一个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 = Sheet1Range("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代码实现两列数据查重全部的内容，包括:求助！请高手赐教，我需要用一个VBA代码实现两列数据查重、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！