根据用户input在列中查找重复的值

我正在尝试在列中find重复的单元格。 我从手动给范围更改为用户定义的代码。 但它给了我错误。 从下面的代码中应该修改什么来接受用户input和处理。

Sub DupEntry() Dim cel As Variant Dim rng As Range Dim clr As Long Dim colname As Variant Dim j As Long Application.ScreenUpdating = False Application.Calculation = xlCalculationManual colname = Application.InputBox("Input Column Name") j = Cells(l, colname).Column Set rng = Range(j & "1:" & j & Range(j & "1048576").End(xlUp).Row) rng.Interior.ColorIndex = xlNone clr = 3 For Each cel In rng If Application.WorksheetFunction.CountIf(rng, cel) > 1 Then If Application.WorksheetFunction.CountIf(Range(j & "1:" & j & cel.Row), cel) = 1 Then cel.Interior.ColorIndex = clr clr = clr + 1 Else cel.Interior.ColorIndex = rng.Cells(WorksheetFunction.Match(cel.Value, rng, False), 1).Interior.ColorIndex End If End If Next Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub 

这里我使用了input框来捕获用户input。 但是，我以一些错误结束了。 我得到运行时错误1004，应用程序定义的错误请帮我捕获用户input的select列。 谢谢。