请问在EXCEL中怎样将表格内的辞职人员自动跳到另一个表格内

缘来是你QQ

请问在EXCEL中怎样将表格内的辞职人员自动跳到另一个表格内 例：表1内有 张三 李四 表2为空表 在今天张三辞职了，我想在状态一栏内输入辞职，他就自动将此行信息跳到表2里去了，然后表1的信息也会消失 求大神指导

3190496160

Sub 筛选()
Dim ar As Variant
Dim br()
With Sheets("在职")
    r = .Cells(Rows.Count, 4).End(xlUp).Row
    ar = .Range("a1:an" & r)
End With
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2) - 1)
For i = 2 To UBound(ar)
    If Trim(ar(i, 12)) <> "" Then
        If Trim(ar(i, 12)) = "辞职" Then
            n = n + 1
            For j = 2 To UBound(ar, 2)
                br(n, j - 1) = ar(i, j)
            Next j
        End If
    End If
Next i
If n = "" Then MsgBox "没有离职人员": End
With Sheets("sheet2")
    .[a1].CurrentRegion.Offset(1) = Empty
    .Cells(2, 1).Resize(n, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

用按钮会好些吧
人事资料 - 副本.rar (44.32 KB, 下载次数: 86)

2023-6-15 14:31 上传

点击文件名下载附件

linxing_1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 12 Then
        If Target = "辞职" Then
            Target.EntireRow.Copy Sheets("sheet2").Range("A" & Sheets("sheet2").Cells(Rows.Count, 1).End(xlUp).Row + 1)
            Target.EntireRow.Delete
        End If
    End If
End Sub

缘来是你QQ

3190496160 发表于 2023-6-15 14:31
用按钮会好些吧

谢谢谢谢谢谢谢谢

缘来是你QQ

linxing_1 发表于 2023-6-15 14:49
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 12 Then
        If  ...

谢谢谢谢谢谢谢谢

13145203

学习了很多，不过我这个有个小问题想请教下各位大神，表格一中公司的花名册。但是在表格二中，我是一次表，就是从表格一中筛选出来，如果表格二中有离职的人员，那么表格一中将不会显示，如何用公式或者是其他的就是不要用那个代码和那个宏

sunya_0529

13145203 发表于 2023-9-7 12:43
学习了很多，不过我这个有个小问题想请教下各位大神，表格一中公司的花名册。但是在表格二中，我是一次表， ...

表2中的数据是从表1中筛选出来的，那么表1就是源数据。

在表2中标记离职人员，要想在源数据表1中“不会显示”（删除或隐藏），目前通过公式是做不到的~