|
发表于 2015-3-13 14:56
|
显示全部楼层
本楼为最佳答案
- Sub tj()
- arr = [a1].CurrentRegion
- Set d = CreateObject("scripting.dictionary")
- For i = 2 To UBound(arr)
- d(arr(i, 1) & arr(i, 3)) = arr(i, 4)
- Next
- brr = [a29:p34]
- For i = 3 To UBound(brr)
- For j = 5 To UBound(brr, 2)
- If brr(2, j) >= brr(i, 4) And brr(2, j) <= brr(i, 5) Then brr(i, j) = d(brr(i, 2) & brr(2, j))
- Next
- Next
- [a29:p34] = brr
- End Sub
复制代码 |
|