vba - 转到其他字段中的行变量

Question

我有 2 个工作表，Master并且Temporary.

在 上Temporary，单行填充数据，例如LineNr, CustomerName, Opportunity, Sales。我使用这一行来更改字段中的数据。

该Master工作表有一个大约 25 行 ( A3:A27) 的列表，其中的数据与布局相似Temporary且布局相同。我从工作表中的行复制/粘贴到工作Master表上Temporary。

根据工作表LineNr上的Temporary，我需要自动复制行 ( A3:D3)，在 上找到相应的行Master，然后将值粘贴到那里。

我找不到如何选择正确的行Master并将其粘贴。

Answer 1

在临时表上创建一个按钮（插入形状）。右键单击它，选择分配宏，然后单击新建。插入此代码：

With Worksheets("Master").Range("A3:A27")
    Set cell = .Find(Worksheets("Temporary").Range("A3").Value, LookIn:=xlValues)
    If Not cell Is Nothing Then
        Worksheets("Master").Range(cell.Address).Offset(0, 1).Value = Worksheets("Temporary").Range("B3").Value
        Worksheets("Master").Range(cell.Address).Offset(0, 2).Value = Worksheets("Temporary").Range("C3").Value
        Worksheets("Master").Range(cell.Address).Offset(0, 3).Value = Worksheets("Temporary").Range("D3").Value
    End If
End With

这假设您有唯一的行号......否则它只会更新它找到的第一个。