VBA-使用输入框值搜索数据范围

我期待着把一个代码，将允许我做一些事情

我要做的是搜索列中输入框中使用的值，并将相邻单元格的值自动递增1

例如，列A有一个序列号列表。B列跟踪使用次数。输入框要求输入序列号。当输入序列号时，我希望代码在A列中搜索序列号，移动到同一行的B列，并将该值增加+1。如果在A列中未找到序列号，请提供未找到消息框

如果您能提供任何帮助，我们将不胜感激！谢谢

类似这样：

Sub yourmacro()
Serialnumber = Application.InputBox("Please provide a serial number", "Serial Number", Type:=1)

Set found = Range("A:A").Find(what:=Serialnumber, LookIn:=xlValues, LookAt:=xlWhole)

If found Is Nothing Then
    MsgBox "Your serial number was not found"
Else
    found.Offset(0, 1).Value = found.Offset(0, 1).Value + 1
End If

End Sub

我假设您的序列号没有-或/，只有数字，这就是为什么输入框中的类型1