根据单元格值将行从目标工作表复制到oter工作表

Question

我在（vba查询）问题上遇到了一些困难。

我有一张表（sheet3），其中包含多行不同发票的数据（每行数据包含与之相关的发票编号）Data sheet

我已将唯一的发票编号复制到单独的工作表中，每张发票都有自己的工作表，发票编号位于单元格B1中。invoice sheet

我想要做的是将数据表中的所有行复制到具有匹配发票编号的工作表。

我现有代码的所有内容都是我的单独发票页面链接而不是使用Vba来创建它们，因为页面上会有各种其他格式和Formulrs所以我几乎从头开始我的问题！< / p>

  Private Sub CommandButton1_Click()
     Dim s1 As Worksheet, s2 As Worksheet
     Set s1 = Sheets("sheet3")
     Set s2 = Sheets("Bill Date")
     s1.Range("F:G").Copy s2.Range("A:B")
     s2.Range("A:B").RemoveDuplicates Columns:=1, Header:=xlNo
  End Sub

您的帮助将不胜感激

由于

Answer 1

在您的VBA宏中，在for循环中执行此操作：

ColorPicker

我改变了一些规范，转而采用更简单的方法。我假设你向我展示的十二根柱子就是你所拥有的一切。我添加了＆＃34; _INV＆＃34;到发票表的末尾，因为纯数字表单名称可能会导致错误。我也将这一行数据逐字地粘贴到新的表格中。如果保留当前标题，则需要更改订单。您可以考虑更改targSht标头以使其更容易。 SetHeader是一个代码块的占位符，可以根据需要在targSht中设置标题行。如果这样可以解决您的问题，请标记正确。

演示（没有发票标题）：