使用提取的数据的Excel更新表

Question

我在excel中有一个包含大量数据和日期的表。像这样：

我打开第二张纸并创建一个公式，从第一张纸中提取两个日期之间的数据。像这样：

现在我希望能够更改新工作表上的数据，旧工作表将自动更新。例如，我希望能够在Shipped下将N更改为Y，并将第一张表更新为Y.

谁能告诉我怎么做？

Answer 1

请使用VBA： 打开VBA编辑器（ALT + F11），添加新模块并粘贴下面的代码。 在完成对第二张的所有更正后，请运行宏。

这不是最佳解决方案，但它应该有效：

Sub CopyChangesInSheepment()

 Set wksSheet1 = Worksheets("sheet1")   'put name of yours FIRST sheet here
 Set wksSheet2 = Worksheets("sheet2")   'put name of yours SECOND sheet here

 F = wksSheet1.Range("a1").CurrentRegion.Rows.Count
 S = wksSheet2.Range("a6").CurrentRegion.Rows.Count
 For j = 6 To S
   For i = 1 To F
      id1 = wksSheet1.Cells(i, 1)
      id2 = wksSheet2.Cells(j, 1)
      ord1 = wksSheet1.Cells(i, 8)
      ord2 = wksSheet2.Cells(j, 8)
      If id1 = id2 And ord1 = ord2 Then   'check if order number and sku are the same
         wksSheet1.Cells(i, 24) = wksSheet2.Cells(j, 15)   'column shipped is 24. column (X) in sheet1 and 15. (O) in sheet2
      End If
   Next i
 Next j

End Sub