根據單元格值將行從兩個或多個Excel工作表復制到另一個

Question

無論如何，我在這里輸入圖片描述我認為這不可能與地雷相提並論，

區別在於，根據單元格值從一張以上的紙復制到另一張紙，而不是使用宏VBA而是通過以下方式進行復制：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range).

實際上，我嘗試過此方法，但效果不佳：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    For Each Sh In ThisWorkbook.Sheets
        If Not Sh.Name = "Archive" Then
            If Cells(Target.Row, 3) = "delivered" Then Cells(Target.Row, 3).EntireRow.Copy Sheets("Archive").Range("A" & Rows.Count) _
              .End(xlUp).Offset(1, 0)
        End If 
    Next Sh
End Sub

謝謝您的幫助。

Answer 1

我在此發布我問題的解決方案，謝謝PEH，也感謝論壇成員。

Private Sub Workbook_SheetChange（ByVal Sh作為對象，ByVal目標作為范圍）如果不是Sh.Name =“ Archive”，則lastcolumn = Cells（1，Columns.Count）.End（xlToLeft）.Column If Sh.Cells（Target.Row， 3）=“已交付”，然后Sh.Cells（Target.Row，lastcolumn）<>“”然后Range（Cells（Target.Row，1），Cells（Target.Row，lastcolumn））。Copy _ Sheets（“ Archive” ）.Range（“ A”＆Rows.Count）.End（xlUp）.Offset（1）如果結束則結束如果結束子