反向VLOOKUP的实现，请帮忙

mangwenzhu · 发表于 2018-8-14 23:21

本帖最后由 mangwenzhu 于 2018-8-14 23:26 编辑

3

1 在 "数据"表里A列里查找 “地区”表里的A列里的字符是否任意位置包含，如果是返回B列的 ”所在地“
2 在 "数据"表里B列里查找 “地区”表里的A列里的字符是否从开头包含，如果是返回B列的”所在地“

把所有用来查找判断的数据写在VBA里会了，但是增加和修改数据时不方便，想做成两个数据表来实现，请各位大神帮忙。

测试表.zip (10.33 KB, 下载次数: 6)

ykqrs · 发表于 2018-8-15 08:40

Sub qq()
Dim arr, brr, crr, i%, j%
With Sheets("数据")
.Range("c2:d1000").ClearContents
arr = .[a1].CurrentRegion
End With
With Sheets("地区")
brr = .[a1].CurrentRegion
End With
With Sheets("电话所在地")
crr = .[a1].CurrentRegion
End With
For i = 2 To UBound(arr)
For j = 2 To UBound(brr)
If InStr(arr(i, 1), brr(j, 1)) <> 0 Then arr(i, 3) = brr(j, 2)
Next
For j = 2 To UBound(crr)
If Val(Left(arr(i, 2), 7)) = crr(j, 1) Then arr(i, 4) = crr(j, 2)
Next
Next
[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

复制代码

ykqrs · 发表于 2018-8-15 08:41

测试表.zip (18.46 KB, 下载次数: 15)

mangwenzhu · 发表于 2018-8-16 10:15

ok 成功，谢谢

mangwenzhu · 发表于 2018-8-19 10:46

[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
arr 里如果有 “0909”这样的数字的字符串，重新填充后会变成数字，前面的0不在，不是文本要怎么处理呀。

mangwenzhu · 发表于 2018-8-19 10:48

另外

.Range("c2:d1000").ClearContents

arr = .[a1].CurrentRegion

[a1].Resize(UBound(arr), UBound(arr, 2)) = arr

这种单元格的操作，应该看哪一方面的资料有介绍呀？

lsc900707 · 发表于 2018-8-19 11:00

mangwenzhu 发表于 2018-8-19 10:48
另外

.Range("c2:d1000").ClearContents

这是数组的基本运用问题。

		自动登录	找回密码
密码			免费注册

[求助] 反向VLOOKUP的实现，请帮忙

评分