引用未知值以自动填充新行

我试图find一个解决scheme，当用户在列表中插入一个新的行，这将被引用自动填充单独的列表中的多个行。 右侧的部分应该自动填充，因为用户在左侧添加了额外的行（例如资产编号）。 另外，资产属性和资产值重复，并且对于每个新的资产编号是相同的。 有什么想法吗？ 之前和之后

（这是我的第一个问题，所以希望我做对了！感谢您的理解和耐心！）

Answer 1

您应该查看Workbook_SheetChange事件。 当在工作表中进行更改时，它将运行放置在其中的任何代码。 您可以在该function中指定仅在左侧的某个范围内发生更改时更新右侧的某个范围。

Answer 2

在包含数据的表格（这里是名为Target的表格 – 根据需要进行更改）中包含以下代码：

Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) And Target.Column = 1 And Target.Row > 1 Then Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets("Target") Dim lastSourceRow As Long Dim lastTargetRow As Long lastSourceRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row NextTargetRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row + 1 With ws.Cells(NextTargetRow, "D") .Resize(3, 1).Value = ws.Cells(lastSourceRow, "A") .Offset(, 1) = "Blue" .Offset(, 2) = "45" .Offset(1, 1) = "Big" .Offset(1, 2) = "20" .Offset(2, 1) = "Cold" .Offset(2, 2) = "5" End With End If End Sub