新手请问下VBA怎么实现模糊查找

打打SSD奥迪

表一是城市和省份的对应表
怎么在表二A列输入城市简称，B列返回其所在的省份？
怎么用VBA实现啊，求指点

02761752696

把代码放到表二   

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Column = 1 Then
   
3.    h = Worksheets(1).Range("A1").End(xlDown).Row
   
4.      With Worksheets(1).Range("a1:a" & h)
   
5.           Set c = .Find(Target, LookIn:=xlValues)
   
6.         If Not c Is Nothing Then
   
7.             firstAddress = c.Address
   
8.             Target.Offset(, 1).Value = .Cells(c.Row, 2)
   
9.         End If
   
10.      End With
    
11. End If
    
12. End Sub

复制代码

打打SSD奥迪

谢谢谢谢大佬，太感谢了

打打SSD奥迪

02761752696 发表于 2017-12-2 09:02
把代码放到表二

谢谢谢谢，感谢

打打SSD奥迪

02761752696 发表于 2017-12-2 09:02
把代码放到表二

大神，麻烦再帮下忙，如果出来的结果直接替代掉输入的话代码要怎么改
就是A1输入杭州，直接A1显示浙江省

02761752696

打打SSD奥迪 发表于 2017-12-2 13:32
大神，麻烦再帮下忙，如果出来的结果直接替代掉输入的话代码要怎么改
就是A1输入杭州，直接A1显示浙江省

这样也可以，但是没有现在方便了，现在输入后回车就自动赋值B列，如果要在A列赋值就不能使用工作表事件了否则出错死机，
要在A列的话只能用按钮来手动执行宏，就是A列输完名称后，点击按钮才可以

你觉得呢。。。。。

打打SSD奥迪

02761752696 发表于 2017-12-2 14:05
这样也可以，但是没有现在方便了，现在输入后回车就自动赋值B列，如果要在A列赋值就不能使用工作表事件了 ...

恩恩，大概知道了，谢谢啊