|
- Sub test()
- arr = Sheets("数据").Range("A1").CurrentRegion
- br = [A1].End(4).Row
- brr = Range("B2:B" & br)
- Dim crr(1 To 100, 1 To 1)
- Set d = CreateObject("Scripting.Dictionary")
- For i = 2 To UBound(arr)
- d(arr(i, 1)) = arr(i, 2)
- Next
- k1 = d.keys
- t1 = d.items
- For j = 1 To br - 1
- mystr = Replace(brr(j, 1), "、", "+")
- For k = 0 To d.Count - 1
- If InStr(mystr, k1(k)) Then
- mystr = Replace(mystr, k1(k), t1(k))
- End If
- Next
- crr(j, 1) = Evaluate("=" & mystr)
- Next
- [C2].Resize(br - 1, 1) = crr
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|