如果A列有数据则B列运行公式

yujp1314

wllxf 发表于 2018-6-8 22:12
你看看，是不是你想要的结果

谢谢大神，就是这个

lsc900707

yujp1314 发表于 2018-6-8 20:11
大神就是这个，附件我B列只留了几个函数，要把整列填充了，实在太卡了，麻烦大神用VBA帮我弄一下，谢谢大 ...

1. Sub gj23w98()
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         d(arr(i, 6)) = ""
   
6.     Next
   
7.     brr = [a1].CurrentRegion
   
8.     For i = 2 To UBound(brr)
   
9.         If d.exists(brr(i, 1)) Then
   
10.             brr(i, 2) = "YES"
    
11.         Else
    
12.             brr(i, 2) = "NO"
    
13.         End If
    
14.     Next
    
15.     [a1].CurrentRegion = brr
    
16. End Sub

复制代码

lsc900707

附件供测试：

yujp1314

lsc900707 发表于 2018-6-9 12:25
附件供测试：

谢谢大神，就是这个了。。