vba限制录入重复数

以下是一个简单的 VBA 代码，可用于限制 Excel 表格中的单元格录入重复数：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

    Dim cell As Range

    Dim x As Integer

    Dim y As Integer

    x = Target.row

    y = Target.Column

    Set cell = Sh.Cells(x, y)

    If Application.WorksheetFunction.CountIf(Columns(y), cell.Value) > 1 Then

        MsgBox "重复数不允许录入，请重新输入！"

        cell.ClearContents

    End If

End Sub

在此代码中，当用户在单元格中录入数值时，会触发 Workbook_SheetChange 事件。如果单元格所在列中已存在相同的数值，代码将弹出一个消息框，提示用户不能录入重复数，并清空所输入的内容。请注意，此代码应放置在该工作簿的 ThisWorkbook 中。