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

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

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

3、在新建的模块中输入代码Private Sub Worksheet_Change(B鲻戟缒男yVal Target As Range)Col = "帆歌达缒A" '把A列修改为限制列，此处为A列isMatch = 0tVal = Target.ValueIf Target.Count = 1 ThenIf 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 IfEnd IfEnd Sub

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

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