将行移动到其他工作表

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'中左上角的单元格。