[已解决]条件引用，求写代码，谢谢！

cdnyrg

条件引用，求写代码，谢谢！

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2015-11-16 15:17

1. Sub a()
   
2. Dim arr, brr(), i%, n%
   
3. arr = Sheets("全院人员").[a2].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     If arr(i, 3) = "在职" Then
   
6.        n = n + 1
   
7.        ReDim Preserve brr(1 To n)
   
8.        brr(n) = arr(i, 2)
   
9.     End If
   
10. Next
    
11. Sheets("其他情况").[a4].Resize(n, 1) = Application.Transpose(brr)
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

橘子红

A4=    CTRL+SHIFT+ENTER  三键结束

1. =INDEX(全院人员!B:B,SMALL(IF(全院人员!C$3:C$999="在职",ROW($3:$999),5^6),ROW(A1)))&""

复制代码

cdnyrg

橘子红 发表于 2015-11-16 15:09
A4=    CTRL+SHIFT+ENTER  三键结束

VBA行吗？

cdnyrg

橘子红 发表于 2015-11-16 15:09
A4=    CTRL+SHIFT+ENTER  三键结束

人太多，函数公式运行太卡了......

这儿有肥猫

1. Sub a()
   
2. Dim arr, brr(), i%, n%
   
3. arr = Sheets("全院人员").[a2].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     If arr(i, 3) = "在职" Then
   
6.        n = n + 1
   
7.        ReDim Preserve brr(1 To n)
   
8.        brr(n) = arr(i, 2)
   
9.     End If
   
10. Next
    
11. Sheets("其他情况").[a4].Resize(n, 1) = Application.Transpose(brr)
    
12. End Sub
    

复制代码

cdnyrg

这儿有肥猫 发表于 2015-11-16 15:17

有一个问题，全院人员有变动时，其他情况表数据不能自动更新