|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
- Sub test()
- Dim i, j, d, arr, brr
- Set d = CreateObject("Scripting.Dictionary")
- With Worksheets("Sheet2")
- arr = .Range("A2:S" & .Cells(.Rows.Count, 1).End(xlUp).Row)
- For i = 1 To UBound(arr)
- d(arr(i, 5)) = arr(i, 18) & "|" & arr(i, 9) & "|" & arr(i, 3) & "|" & arr(i, 17) & "|" & arr(i, 8)
- Next
- End With
- With Worksheets("Sheet1")
- brr = .Range("A2:R" & .Cells(.Rows.Count, 1).End(xlUp).Row)
- For i = 1 To UBound(brr)
- If d.Exists(brr(i, 9)) Then
- brr(i, 11) = Split(d(brr(i, 9)), "|")(0)
- brr(i, 14) = Split(d(brr(i, 9)), "|")(1)
- brr(i, 15) = Split(d(brr(i, 9)), "|")(2)
- brr(i, 16) = Split(d(brr(i, 9)), "|")(3)
- brr(i, 17) = Split(d(brr(i, 9)), "|")(4)
- End If
- Next
- End With
- [A2].Resize(UBound(brr), UBound(brr, 2)) = brr
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|