如何用vba将excel一列值取出来运算然后将结果注入另一列？

Question

比如A列的值是“杭州”，“苏州”，“宁波”等；设定”杭州”、”宁波”是”浙江”的子集，“苏州”是“江苏”的子集，如何在B列对应的单元格显示对应所属的集合？（如A1为杭州，则B1为浙江）

Answer 1

就这个意思？

追问

对！就是这个意思，有完整的图么，谢谢兄弟啊

追答

Sub 查找()
Dim I%, K%
For K = 2 To Range("D65536").End(xlUp).Row
For I = 2 To Range("A65536").End(xlUp).Row
If InStr(Cells(K, "D"), Cells(I, "A")) > 0 Then
Cells(I, "b") = Cells(K, "E")
End If
Next
Next
End Sub

Answer 2

首先要有一个集合列表

追问

集合列表已经有了，然后呢

追答

设一个字典对象就可以了

追问

求详细指导。。。本人程序渣。。。。

追答

上传具体文件