用VBA将一个工作表中符合条件的数据复制到另一个工作表中 ,并删除原纪录

maqin3476

大家好：
          我是一个初学者，请教大家一个问题，用VBA将一个工作表中符合条件的数据复制到另一个工作表中 ,并删除原纪录





非常感谢！

李甲

要删除多个的话，需要使用循环
注意是要逆序循环

abc123281

Sub test()
Dim rg As Range
With Worksheets("信息表")
r = .[a65536].End(xlUp).Row
For i = 3 To r
  If .Cells(i, 5) = "在职" Then
     With Worksheets("在职")
       Set rg = .[a65536].End(xlUp).Offset(1)
     End With
    .Cells(i, 1).Resize(1, 5).Copy rg
  End If
Next
End With
End Sub

abc123281

信息记录表123.rar (18.82 KB, 下载次数: 181)

2018-10-11 20:18 上传

点击文件名下载附件

maqin3476

abc123281 发表于 2018-10-11 20:16
Sub test()
Dim rg As Range
With Worksheets("信息表")

我的意思是当我在在职状态栏输入信息“在职”时，表格不发生变动，当我输入“离职”时，该行自动复制到另一个工作表中，并删除在此工作表中的内容

不知道为什么

不知道你是不是要找 离职 的信息，如图参考

不知道为什么

            

roc.jame

收藏下帖子

ljwyong

不知道为什么 发表于 2018-10-11 20:32

你好，我想在离职表中不断是插入的形式，怎么办？你这是按一次，之前的就没了。

ljwyong

老师您好！有问题请教，QQ1011905499