_ Operator:=xlBetween

如果目标。计数2,然后退出潜艇

如果目标。第3栏或目标。第3行然后退出潜水艇

迪姆艾，阿，我

目标。偏移量(0,-1)='

Arr=Sheet1 .[a1].当前区域

对于i=3至ubbound(Arr)

如果Arr(i，2)=目标。价值然后

aa=aa Arr(i，1)'，'

如果…就会结束

然后

如果aa='那么“MsgBox”没有找到编号：出口接头

aa=左(aa，Len(aa) - 1)

与目标。偏移量(0,-1)。确认。删除。添加类型：=xlValidateList，alert style :=Xlvalidalertstop，_

Operator:=xlBetween，Formula1:=aa