|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Private Sub CommandButton1_Click()
Dim h As Long
For h = 3 To Range("a10000").End(xlUp).Row
If Cells(h, "s") <> "" And Cells(h, "s").NoteText = "" Then
Range(Cells(h, 1), Cells(h, 25)).Copy Sheet2.Cells(Sheet2.Range("a10000").End(xlUp).Row + 1, 1)
Sheet2.Cells(Sheet2.Range("a10000").End(xlUp).Row, "s").NoteText "已转录到离职员工"
End If
If Cells(h, "v") <= 18 And Cells(h, "v").NoteText = "" Then
Range(Cells(h, 1), Cells(h, 25)).Copy Sheet3.Cells(Sheet3.Range("a10000").End(xlUp).Row + 1, 1)
Sheet3.Cells(Sheet3.Range("a10000").End(xlUp).Row, "v").NoteText "已转录到未成年员工"
End If
Next h
End Sub
考虑到档案资料的保存,在原表中为删除,但做了记号,未改变原表结构,只对离职和未成年的加了注释,再不会二次转录。
|
|