条件判断，函数公式改用VB解决（感谢lsc900707老师）

vvw123

用函数计算慢，能否用VB解决，因为数据多，用录制宏也很慢。

lsc900707

1. Sub gj23w98()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [h1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         s = arr(i, 1) & arr(i, 2)
   
6.         d(s) = i
   
7.     Next
   
8.     brr = [a1].CurrentRegion
   
9.     For i = 2 To UBound(brr)
   
10.         s = brr(i, 1) & brr(i, 2)
    
11.         If d.exists(s) Then
    
12.             brr(i, 3) = "不在编"
    
13.         Else
    
14.             brr(i, 3) = "在编"
    
15.         End If
    
16.     Next
    
17.     [a1].CurrentRegion = brr
    
18. End Sub

复制代码

vvw123

lsc900707 发表于 2018-10-14 12:05

非常感谢！解决了运算速度问题

lsc900707

参考附件：

vvw123

lsc900707 发表于 2018-10-14 12:07
参考附件：

谢谢周末拨冗帮助！

清风竹-

请看附件。

vvw123

清风竹- 发表于 2018-10-14 12:47
请看附件。

感谢帮助，祝万事如意！今天鲜花送完了，明天再送！

zhangcheng6688

lsc900707 发表于 2018-10-14 12:05

优秀作品！