多行相同值不同状态判定

281512373

唯一列 同一组数据
判定列 只出现不满足
最终结果就是不满足  （自动出最终结果）
反之 就是满足


数据.rar (737.35 KB, 下载次数: 2)

2018-7-18 14:47 上传

点击文件名下载附件

看见星光

1. Sub Dodict()
   
2.     Dim d As Object, arr, brr, i&, j&, k&, s$
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = [a1].CurrentRegion
   
5.     ReDim brr(1 To UBound(arr), 1 To 1)
   
6.     For i = 4 To UBound(arr)
   
7.         If arr(i, 13) < arr(i, 12) Then d(arr(i, 1)) = ""
   
8.     Next
   
9.     For i = 4 To UBound(arr)
   
10.         If d.exists(arr(i, 1)) Then brr(i, 1) = "不满足" Else brr(i, 1) = "满足"
    
11.     Next
    
12.     [n1].Resize(UBound(brr), 1) = brr
    
13.     Set d = Nothing
    
14.     MsgBox "ok"
    
15. End Sub

复制代码

看见星光

数据.rar (680.54 KB, 下载次数: 5)

2018-7-18 14:57 上传

点击文件名下载附件

281512373

看见星光 发表于 2018-7-18 14:57

i=4 应该是开始行啦 怎么不能改动呀 我改到第13行

281512373

281512373 发表于 2018-7-18 16:04
i=4 应该是开始行啦 怎么不能改动呀 我改到第13行

知道了空行的原因