|
发表于 2017-5-3 15:25
|
显示全部楼层
本楼为最佳答案
- Sub 检测水票号()
- Set d = CreateObject("scripting.dictionary")
- arr = Sheets("数据库").Range("a1:i" & Sheets("数据库").[b65536].End(3).Row)
- For i = 3 To UBound(arr)
- xs = arr(i, 8): xe = arr(i, 9)
- For k = xs To xe
- d(k) = arr(i, 2)
- Next
- Next
- With ActiveSheet
- arr = .Range("m4:m" & .[m65536].End(3).Row)
- For i = 1 To UBound(arr)
- arr(i, 1) = d(arr(i, 1))
- Next
- .[p4].Resize(UBound(arr)) = arr
- End With
- End Sub
复制代码 |
|