例如：A列单元格分别为1,2,3,4,5,6,7,1，2,3等，数组arr={1,2,3,4}。若A列中的单元格数值在数组arr中存在，则B列同行标记为1，如a1=1属于... 例如：A列单元格分别为1,2,3,4,5,6,7,1，2,3等 ，数组arr={1,2,3,4} 。若A列中的单元格数值在数组arr中 存在，则B列同行标记为1 ，如 a1=1 属于arr ,则b1=1，a5=5，不属于arr，则b5=“”。请问这段代码怎么写？谢谢 EXCEL 判断某一单元格值是否包含在某一列中，可以使用COUNTIF函数，函数形式：=IF(COUNTIF(目标列,判断列首个单元格)>0,"是","否")，示例步骤如下：

1.鼠标左键点击需要输入判断结果的单元格，如下图红框所示；

2.然后在fx后面输入“=IF(COUNTIF(A:A,B2)>0,"有","无")”，如下图红框所示；

3.然后按回车键，即可判断出第一个值是否在判断列里面，如下图红框所示；

4.然后利用填充柄下拉选择所有需要判断的数值的输出单元格，如下图红框所示；

5.就会自动套用公式，对其他的数值做出判断，输出判断结果

可能跟想象的不太一样，一本字典能称为秘密武器吗？其实，在这里更准确的说法应该是hashmap，它有一个非常好的优势，就是它的算法复杂度为O(1),注意这个1是个常数，也就是一，二，三的一。按算法来说，一般随着计算量的增加，我们要解决问题的难度也会加大。比如我们要在15个人里面看看有那几个人手里拿着旗子？可能一眼就能得到答案：3。但是如果现在有100万人呢？问题解决的难度就变得非常大了(O(n))。

a6ea16bf688852f9b691018b41ba5e3d.png

O(1)的算法有一个非常的好的特性，不管数据多寡，它总是以固定的时间将问题的答案抛给提问者。就像面对一面魔镜，只要问一个问题，不管问题多难，魔镜都能瞬间给出答案。而hashmap，或字典就有这样的能力。

03 VBA字典
VBA的自带数据类型里并没有字典。需要我们自己引入。VBA有个古老的Scripting库，从Scripting中我们可以引入Dictionary，也就是常说的字典。引入语法如下

Set dict = CreateObject("Scripting.Dictionary")

字典的主要属性如下

CompareMode Count Item key

方法如下

Add Exists Items Keys Remove RemoveAll

Dictionary 跟我们日常使用的字典相似点如下：

Dictionary的键相当于我们字典要查的”词“

Dictionary的值相当于我们字典中查到”词的解释“

并且一个dictionary实例的键是不能重复的。

今天主要用到的属性跟方法是

Item=>对某个键赋值

Add=>增加一对键、值

Exists=>判断某个键是否存在

关于如何使用VBA的Dictionary，先告一段落，接下来要解决我们开头的那个应用场景

04 解决问题 第一个版本
在Excel表中模拟了差不多50万行的记录，有三个字段，分别是索引字段 索引值1 索引值2

这些数据都是随机生成的，并没有什么意义。其中索引字段是从26个英文子母中随机挑选了7个，索引值1跟2随机从1到200中取了个整数。

接下来，我从索引字段中随机抽取了差不多1万个待检索值，目标是在结果中显示内容。

4c7bd7b4985d2417f298bec31e54f2c6.png

首先，我们选中f4:f10000,在其中填入自定义函数NEWVLOOKUP，这个函数有三个参数，第一个是要查询的一列数组，也就是E4:E10000，第二个参数是目标索引的列，也就是A3:A500000,第三个参数就是要索引的内容，在这里我们选择索引自身，也就是1

1、获取当前列的最大行数

2、通过循环，获取当前列的每个单元格的值

3、比较单元格的值是否在数组中

示例：

Sub a2()
   Dim cnt As Integer  '定义当前列行总数
   Dim tmp As String  '定义临时变量
   Dim i As Integer, j As Integer  '定义临时变量
   Dim a(2) As String '定义要查找的数组
   cnt = Range("A1").End(xlDown).Rows.Count '获取某一个列，这里是A列的行总数
   For i = 1 To cnt
      tmp = Range("A" + CStr(i)).Value  '获取当前列某个单元格的值
      For j = LBound(a) To UBound(a)   '数组中比较
          If tmp = a(j) Then  '当前单元格的值是否在数组中
              Debug.Print tmp '是的话就打印信息
          End If
      Next j
   Next i
End Sub

Sub a()
Dim Arr
Arr = Array(1, 2, 3, 4)
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim i As Integer
For i = LBound(Arr) To UBound(Arr)
d(Arr(i)) = ""
Next i
Dim R As Long
R = Sheet1.Cells(65536, 1).End(xlUp).Row
Dim x As Long
Dim y
For x = 1 To R
y = Sheet1.Cells(x, 1)
If d.Exists(y) Then Sheet1.Cells(x, 2) = 1
Next x
Set d = Nothing
End Sub