你应该从各个记录中，选取唯一的编码进行识别。
例如：货品编码如果都是唯一的，那么我们就可以通过货品编码定位行。
代码如下：
假定货品编码文本框为TextBox1
那么我们可以这么定位：
Sub xx()
Dim Rng as Range
Set Rng = ActiveSheet.[B:B].Find(TextBox1.Text,,,XlWhole)
If Not Rng is Nothing Then Msgbox Rng.Row
'这里的Rng.Row就是我们要定位的行！
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024