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

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

这是一个例子:

enter image description here

代码我用来添加从主表到子表的行:

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

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

回答(1)

2 years ago

在“Master”表单窗格中添加以下代码:

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