Question

各位高手好!请教一下,求EXCELVBA代码,主要功能通过提取记录,进行修改后,重新保存到有原的表页的行位置.

Answer 1

你应该从各个记录中，选取唯一的编码进行识别。

例如：货品编码如果都是唯一的，那么我们就可以通过货品编码定位行。

代码如下：

假定货品编码文本框为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