如果在 Excel 中标有“X”，则将行从一张纸复制到另一张纸

Question

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

例如，如果我在“项目”表的单元格 A3 中键入 500，单元格 A3-F3 将被复制到第一个可用行中的“订单”表（现在恰好是 A2）​​。 如果下一个订购的项目在 A9 上，他们会将数量输入到项目表的 A9 中，然后将 A9-F9 复制到订单表的 A3-F3，依此类推。 复制不同的行后，他们将能够将分组的行复制到电子邮件中并发送。

因此，在项目表的 A 列中键入的任何数字都会将 AF 复制到订单表中的第一个可用行。 如果我遗漏了什么，请告诉我。 对不起，如果这是一个愚蠢的问题，但我已经花了 5 个小时，似乎无法解决这个问题。

谢谢！

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。然后您可以将订单复制并粘贴到电子邮件中！ 您甚至不需要第二个工作表。