如果在Excel中标记为“X”，将行从一张复制到另一张

Question

我为我的公司购买产品，并且一直在制作电子表格（Excel 2003）以帮助人们订购东西。我有两个工作表，项目和订单。我希望用户能够将数量输入到指定的单元格中，并将该行信息复制到订单工作表中。

例如，如果我在项目工作表单元格A3中键入500，单元格A3-F3将被复制到第一个可用行中的订单工作表（现在恰好为A2）。如果订购的下一个项目在A9上，他们将把数量输入到物料清单的A9中，并将A9-F9复制到订单清单的A3-F3，依此类推。在复制不同的行之后，他们可以将分组后的行复制到电子邮件中并发送。

因此，输入到项目表A列中的任何数字都会将A-F复制到订单表中的第一个可用行。让我知道我是否遗漏了一些东西。对不起，如果这是一个愚蠢的问题，但我花了好几个小时，似乎无法找出这一个。

谢谢！

Answer 1

将此代码放在项目工作代码窗格：

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Target.Column = 1 Then 
     With Worksheets("Orders") 
      .Cells(.Rows.Count, "A").End(xlUp).Offset(1).Resize(, 6).Value = Target.Resize(, 6).Value 
     End With 
    End If 
End Sub 

Answer 2

不使用任何宏，您可以设置纸张这样的： 使整个第一个工作表为表（选中它，然后单击'插入'> '表'）。让用户输入所需的金额，然后按'数量'过滤表格，不包含0.然后，您可以将订单复制并粘贴到电子邮件中！你甚至不需要第二张工作表。