有没有一个公式或者宏，是可以快速知道一列数据中的其中的单元格包含的数值或者字...

mind1238

719404338 发表于 2018-9-22 15:55

也是非常感谢你，但是我刚刚试了一下
不行
其实有的条件重复了

719404338

mind1238 发表于 2018-9-22 15:59
也是非常感谢你，但是我刚刚试了一下
不行
其实有的条件重复了

你把条件修改一下。

mind1238

719404338 发表于 2018-9-22 16:00
你把条件修改一下。

比如说，如果有的数据是LE2188B,那其实这个数据应该是等于”特“的
但是又默认为单

719404338

1. Sub t()
   
2. Dim d, i%
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = [d1:e9]
   
5. For i = 1 To UBound(arr)
   
6. d("" & arr(i, 1)) = arr(i, 2)
   
7. Next i
   
8. arr = [a2:a25]
   
9. For i = 1 To UBound(arr)
   
10. Range("c" & i + 1) = d(Mid(arr(i, 1), 4, 1))
    
11. If d(Mid(arr(i, 1), 4, 1)) = "" Then Range("c" & i + 1) = d((Mid(arr(i, 1), 3, 1)))
    
12.   If (InStr(3, arr(i, 1), "A")) Or (InStr(3, arr(i, 1), "B")) Then Range("c" & i + 1) = "特"
    
13.   If (InStr(3, arr(i, 1), "Y")) Or (InStr(3, arr(i, 1), "S")) Then Range("c" & i + 1) = "元素"
    
14. Next
    
15. End Sub
    

复制代码