vbyou127 发表于 2016-3-18 17:07
不用字典怎么做 - Sub lu()
- Dim arr, brr, n, m
- arr = [b2:d7]
- brr = [a11:b12]
- For n = 1 To UBound(brr)
- For m = 1 To UBound(arr)
- If brr(n, 1) = arr(m, 1) Then
- brr(n, 2) = arr(m, 3)
- Exit For
- End If
- Next m
- Next n
- [c11].Resize(UBound(brr), 1) = Application.WorksheetFunction.Index(brr, 0, 2)
- End Sub
复制代码 |