Excel VBA在工作表中插入/删除行

Question

我有一个用于库存跟踪的Excel工作簿，并且似乎无法使其按照我的需要运行。我有一张包含产品的主表，然后是仓库位置的多张表。我希望能够在我的主表中添加一个新行，并使用新产品更新其他表。我试着写一个VB脚本来将部件号从master复制到仓库main，然后用vlookup填充列表。我选择了这种方法，这样当我更改master中的描述时，它会更新所有工作表。我似乎无法编写一个VB脚本，在我想要的地方插入一行，并在我的其他工作表中执行相同的操作。

以下是一个例子：

代码我用来在Master到Sub-sheet中添加行：

     Private Sub Worksheet_Change(ByVal Target As Range)
       Application.ScreenUpdating = False
        For a = 1 To 10 
            Sheets("Master").Rows(a).Copy
            Sheets("VBtest").Rows(a).Insert Shift:=xlDown
        Next a
        Application.ScreenUpdating = True
        End Sub

问题是它会删除我的所有股票信息。只是尝试在行的第一个单元格中添加空行和复制部件号似乎对我不起作用。

Answer 1

加入＆＃34; Master＆＃34;表单窗格中包含以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    With Range("A" & Target.row & ":F" & UsedRange.Rows(UsedRange.Rows.count).row)
        Worksheets("Warehouse Main").Range(.Address).Value = .Value
        Worksheets("Warehouse Remote").Range(.Address).Value = .Value
    End With
End Sub