符合条件的数据整行同步到另一个工作簿

3个工作表的情况：按Alt——双击“在职表”编辑代码（如图1），在双击“离职表”编辑代码（如图2）PrivateSubWorksheet_Activate()Dimrag$,col%UsedRange.EntireRow.Deleterag=Sheets(人员信息总表).UsedRange.Addresscol=Application.CountA(Sheets(人员信息总表).Range(1:1))Sheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(rag).AutoFilterField:=col,Criteria1:==试用期,_Operator:=xlOr,Criteria2:==正式Sheets(人员信息总表).Range(rag).SpecialCells(xlCellTypeVisible).CopyRange(A1).SelectActiveSheet.PasteRange(A1).SelectApplication.CutCopyMode=FalseSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterEndSub————————————————————————————————PrivateSubWorksheet_Activate()Dimrag$,col%UsedRange.EntireRow.Deleterag=Sheets(人员信息总表).UsedRange.Addresscol=Application.CountA(Sheets(人员信息总表).Range(1:1))Sheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(rag).AutoFilterField:=col,Criteria1:=离职Sheets(人员信息总表).Range(rag).SpecialCells(xlCellTypeVisible).CopyRange(A1).SelectActiveSheet.PasteRange(A1).SelectApplication.CutCopyMode=FalseSheets(人员信息总表).Range(A1).AutoFilterSheets(人员信息总表).Range(A1).AutoFilterEndSub————————————————————————————————两个工作表中的代码，就是粗体标出的部分不一样，其他都一样。————————————————————————————————关闭代码窗口回到“人员信息总表”窗口，然后再点击“在职表”（或离职表）看看，结果就出来了。说明：点击“在职表”或“离职表”后，“人员信息总表”原有的筛选条件就取消了。