如果要设定Sheet1的B栏只能输入数字,先在Sheet1标签上单击鼠标右键,选择"查看代码",
复制以下代码,并粘贴至弹出的对话框中即可.
Private Sub Worksheet_Change(ByVal Target As Range)
If IsNumeric(Target.Text) = False And Target.Text <> "" Then
If Left(Target.Cells.Address, 2) = "$B" Then
MsgBox "B栏整行只能输入数字!", 48
Range(Target.Address).Select
SendKeys "{F2}"
End If
End If
End Sub