將行移動到其他工作表

Question

是否有某種方法或公式可以通過輸入條件並按Enter鍵將某一行移動到另一個工作表？

就像我有3張紙，每張紙上的一列被稱爲狀態，並且在這一列中輸入COMP，它是否可以將所有信息移動到稱爲COMP紙張的紙張？

Answer 1

插入您的工作表的代碼

Private Sub Worksheet_Change(ByVal Target As Range) 
    If (Range("A1").Value = "COMP") Then ' Replace "A1" for your cell that will contain COMP 

    ActiveSheet.Range("1:1").Copy _  ' Replace 1:1 by your souce row 
     Destination:=Worksheets("COMP").Range("2:2") 'replace 2:2 by your dest row 


    End If 
End Sub 

當用戶更改工作表中的任意值，如果「A1」的值爲「COMP」，（在本例中1）您所選擇的行復制到工作表COMP中的目標行（示例中的第2行）。

Answer 2

您可以構建一個VBA宏，它可以完成所有移動，但這需要用戶手動運行它，而不僅僅是在單元格中鍵入COMP。您也可以自動更新，而不需要用戶按下COMP，然後使用引用其他工作表的公式進行輸入（但它會一直存在）。

=Sheet1!A1 

上面的代碼將引用工作表'Sheet1'中左上角的單元格。