|
本帖最后由 月关 于 2019-8-14 08:37 编辑
如上图,"名称1"和“名称2”各自均有重复,但是 名称1+名称2 可以确定唯一值。从Sheet2源表中提取C列等级填入Sheet1的C列。
代码如下:
- Sub test()
- brr = Sheet2.[a1].CurrentRegion.Offset(1)
- arr = Sheet1.[a1].CurrentRegion.Offset(1)
- For i = 1 To UBound(arr) - 1
- For ii = 1 To UBound(brr) - 1
- If arr(i, 1) = brr(ii, 1) And arr(i, 2) = brr(ii, 2) Then arr(i, 3) = brr(ii, 3)
- Next
- Next
- End Sub
复制代码 我想在这两个循环中插入一个判断,假如在Sheet2源表中未找到,则弹窗提示Sheet1中的哪一个数据在源表中未找到。
脑子有点昏沉,不知道这个判断语句该怎么写插到哪里,望路过的老师点拨一个思路,谢谢!
———————————————————————————————————————————————
这个模型设置的有问题,老师们不用理会了
|
|