限制一列表格中只能输入数据

1、在工作表标签上右击，选择查看代码，或按Alt+F11

2、进入VBE编辑界面，点击插入-->模块

3、在新建的模块中输入代码

Private Sub Worksheet_Change(ByVal Target As Range)

Col = "A"  '把A列修改为限制列，此处为A列
isMatch = 0
tVal = Target.Value
If Target.Count = 1 Then
If Target.Column = 1 And tVal <> "" Then
   If IsNumeric(tVal) = False Then
       MsgBox "请输入数字"
       Target.Value = ""
       Target.Select
   End If
   For i = 1 To Cells(65536, Col).End(xlUp).Row
       If Cells(i, Col) = tVal Then isMatch = isMatch + 1
   Next
   If isMatch > 3 Then
       MsgBox "数据重复超过3个，请重新输入"
       Target.Value = ""
       Target.Select
   End If
   
End If
End If

End Sub

4、如果在A列输入非数值内容，则会弹出提示"请输入数字"。

5、如果在A列输入相同数据超过三个，则会弹出提示 "数据重复超过3个，请重新输入"。