如何在excel中做一个VBA程序，扫描条码时只读取条码的前11位然后查找到excel中相同的数据。
同时，这个条码的前11位数据又输入到相同数据行的其他单元格中。
例如，我扫描条码得到数据12345678901，然后查找到单元格中A3的数据与它相同，然后12345678901的数据输入到H3单元格中，VBA要怎么写？
请高手帮助！
第1个回答 2012-05-13
Sub dk()
a = "12345678901234"
b = Mid(a, 1, 11)
Range("a3") = b
Set c = Range("a1:a65356").Find(b, LookIn:=xlValues)
If Not c Is Nothing Then
Debug.Print c.Address
Do While True
d = InStr(2, c.Address, "$")
e = Mid(c.Address, d + 1)
If d > 1 Then Exit Do
Loop
Range("h" & e) = a
End If
End Sub本回答被提问者采纳
a = "12345678901234"
b = Mid(a, 1, 11)
Range("a3") = b
Set c = Range("a1:a65356").Find(b, LookIn:=xlValues)
If Not c Is Nothing Then
Debug.Print c.Address
Do While True
d = InStr(2, c.Address, "$")
e = Mid(c.Address, d + 1)
If d > 1 Then Exit Do
Loop
Range("h" & e) = a
End If
End Sub本回答被提问者采纳
相似回答
