在狀態更改後，在同一工作簿中將行從一個wksheet移動到另一個行的宏

Question

我有一個包含2個工作表（1個工作表稱爲final，1個工作表稱爲pending）的工作簿，它們使用相同的列標題和列公式。

我很難找出一個宏/ VBA，它會幫助我在第四列的狀態從暫掛狀態變爲最終狀態時，自動將數據行從「待處理」工作表傳輸到「最終」工作表。這樣就可以將待處理和最終客戶的所有數據保存在單獨的工作表中。

請幫忙。

Answer 1

嘗試這樣的事情在你的代碼woorkbook：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) 
If Sh.Name = "pending" And Target.Column = 4 Then 
    If Sh.Cells(Target.Row, Target.Column) = "final" Then 
     Sh.Select 
     Sh.Rows(LTrim(Str(Target.Row)) & ":" & LTrim(Str(Target.Row))).Select 
     Selection.Copy ' or cut 
     Sheets("final").Select 
     Rows("20:20").Select ' here is your destination row... you must set a global to control it... 
     Selection.Insert Shift:=xlDown 
    End if 
End Sub 

祝你好運！