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

lyh97yx

不错！学习

qingzhu2468

32楼果然是位高手。

hcwot511

还是VBA强大，学习中

sara.lai

很强大，学习了 ！

dejunk

谢谢分享{:soso_e113:}

Land_恋

sunya_0529 发表于 2010-5-13 19:03
纯用函数实现难度挺大，用宏的话就小菜了。

如附件所示，在F列输入“离职”，会自动在“离职”表里 ...

你好。请问数据转移没问题，但是offset函数不起作用，会覆盖掉之前已过去的数据是为什么呢？

Land_恋

sunya_0529 发表于 2010-5-13 19:03
纯用函数实现难度挺大，用宏的话就小菜了。

如附件所示，在F列输入“离职”，会自动在“离职”表里 ...

解决了…不是offset不起作用，是我列号弄错了。不过有个新问题，就是在A列的话，就是没问题的。如果换成C列，Range("C65536")，就一直提示运行错误，复制粘贴的区域大小不一样。是不是有什么默认的规则在里面？不好意思，菜鸟还没系统学过。如果有空，能麻烦解释一下么？谢谢！

sunya_0529

Land_恋 发表于 2013-6-20 10:13
解决了…不是offset不起作用，是我列号弄错了。不过有个新问题，就是在A列的话，就是没问题的。如果换成C ...

呵呵 ，这个帖子的受关注度令我有点意想不到。

1. Option Explicit
   
2. 
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4. If Target.Cells.Count > 1 Then Exit Sub
   
5. If Target.Value = "离职" Then
   
6.   Target.EntireRow.Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
   
7.   Target.EntireRow.Delete
   
8. End If
   
9. End Sub

复制代码

上述代码中的“Range("A65536").End(xlUp)”End属性的作用是获取A列最后一个有数据的单元格，返回的是一个Range对象，常用来取它的行号：“Range("A65536").End(xlUp).Row”

如果你A列和C列都有数据且长度一致，那么“Range("A65536").End(xlUp).Row”=“Range("C65536").End(xlUp).Row”
上面代码中的“.Offset(1, 0)”是取A列最后一个有数据单元格的下一个单元格，即可以复制新数据的空行。如果你的代码改用C列的可用单元格，如“Range("C65536").End(xlUp)”，是按照C列的最后一个有数据的单元格的下一个单元格，而不再是A列的了。

不知道这样解释能整明白不？

Land_恋

sunya_0529 发表于 2013-6-20 11:35
呵呵 ，这个帖子的受关注度令我有点意想不到。上述代码中的“Range("A65536").End(xlUp)”End属性的作用是 ...

谢谢~因为很实用嘛，关注度肯定高~

因为按照我之前表头设置，条件判断的那列在C列，是一定有数据的，A列不一定有数据，所以最开始我一直以为offset不起作用才导致移动过去的数据一直覆盖之前的。
后面才发现读取的是A列非空行数，A列空着理所当然被覆盖。就想看看能不能读取C列的非空行。
现在我把表头重新设置了一下，运行没问题了。

如果A列和C列里面有数据，而且数据长度一致，就能A、C替换？！也就是说其实程序默认还是读A列的？！

Thanks sunya。

sunya_0529

Land_恋 发表于 2013-6-20 13:57
谢谢~因为很实用嘛，关注度肯定高~

因为按照我之前表头设置，条件判断的那列在C列，是一定有数据的，A ...

Target.EntireRow.Copy Sheets(2).Range("C65536").End(xlUp).Offset(1, －2)

要根据C列非空行作为判断依据的话，可以参考上面的代码。