如果在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.然後，您可以將訂單複製並粘貼到電子郵件中！你甚至不需要第二張工作表。