求助！请高手赐教，我需要用一个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吗？用简单的函数公式或者条件格式显示也可以呀。

假定数据在a列，在b1输入：

=if(countif(a:a,a1)>1,"重复","")

公式下拉

---