Excel 基于条件复制整行并粘贴到sheet2的公式

我有一个数据库，里面有办公室里所有的“活动”文件。我总是要复制和粘贴整行，并粘贴在另一张纸上时，案件变得不活跃或存放

是否有一个公式可以添加公式：如果我在AJ上添加“存储”一词，excel将复制sheet1 A1行，并将其粘贴到Sheet2上任何打开下一行的位置

使用

当

Sheet1

上AJ列中的单元格更改为“存储”时，整行将复制到

Sheet2

上的下一可用行

在Sheet1上单击鼠标右键，然后查看代码并输入以下内容：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Columns("AJ")) Is Nothing Or Target.Cells.Count > 1 Then Exit Sub

    Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet2") 'Change to your sheet name as needed
    Dim lastRow As Long: lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1

    If Target.Value = "Storage" Then
        Target.EntireRow.Copy ws.Cells(lastRow, 1)
        Target.Activate
        Application.CutCopyMode = False
    End If
End Sub

---

VBA是一种选择吗？当然，只要它有效，任何东西都可以。非常感谢这真的很有帮助。我想我会做一个不同的表格，指出哪位员工有哪种情况。因此，我是否可以使用相同的公式，使用多个If Target.Value=“Employee's Name”然后将其复制到不同的工作表？您可能可以重新使用此代码，是的。也可能有用。如果列J有“存储”复制到存储，如果Value=“Name1”复制到“Sheet2”，Name2复制到Sheet3，等等，您可以做一个吗。到“Name7”，这实际上应该是一个新问题。虽然我已经用

Select Case

给了你一个提示。