扫描枪条码枪加excel

扫描枪条码枪加excel

描枪只是一个输入设备（相当于 另类的键盘）而已，只有输入字符到Excel中的功能，不会有查找、定位、替换的 判断与操作功能。

这种判断与操作，只能由软件提供，可以由输入设备的输入来触发软件去执行。

可以用VBA写一段代码到Ecxel中，在你输入内容时，立即查找当前表，找到有其他相同的，就清除之。

---------------------------------------

因为楼主并没有说明你是如何录入的（比如：是固定在一个单元格中输入，还是随机在任意单元输入），我针对随机单元格录入的情况，写了一段。功能如下：

1）支持在一个工作表的任意单元格输入数据；

2）在录入完成后，Excel自动检查是否存在另一个单元格的内容与所录入内容完全相同；

3）如存在，则清除当前单元格与所找到单元格的内容；

4）光标自动定位到所清除的两单元格中 行号小的那一个上，以便继续录入；

5）如不存在，则什么都不做，就是正常录入了一个单元格数据；

在需要此功能的那个工作表标签上点右键，选择“查看代码”打开宏编辑器，在右边的空白处贴上如下代码，就可以实现上述功能，全自动工作，无需手工执行宏（也就是说，你只要用扫描枪连续扫描就OK了，仿佛是的扫描枪具有了楼主所述的功能一样。）：

Private Sub Worksheet_Change(ByVal Target As Range)

Dim m As Range, str As String

Application.EnableEvents = False

str = Target.Text

If str <> "" Then

For Each m In Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell))

If Not (m.Row() = Target.Row() And m.Column() = Target.Column()) And m.Text = str Then

m.ClearContents

Target.ClearContents

If m.Row() < Target.Row() Then m.Select Else Target.Select Exit For

End If