[已解决]求在职员工的函数

安全为主

qdae 发表于 2012-4-14 16:14
公式向下拉出错，怎么回事

公式输入后，鼠标点在编辑栏中，ctrl+shift+enter组合键，若不止这些数据，修改公式中的范围就可以。

周义坤

1. Sub 在职人员()
   
2. Dim ar, arr(), i&, m&
   
3. ar = Range("A5").CurrentRegion
   
4. ReDim arr(1 To UBound(ar), 1 To 2)
   
5. For i = 1 To UBound(ar)
   
6.     If ar(i, 5) = "" Then
   
7.     m = m + 1
   
8.     arr(m, 1) = ar(i, 1)
   
9.     arr(m, 2) = ar(i, 2)
   
10.     End If
    
11. Next
    
12. Range("H6").Resize(UBound(ar), 2) = arr
    
13. End Sub
    

复制代码

1989.zip (10.25 KB, 下载次数: 0)

2012-4-15 13:22 上传

点击文件名下载附件