|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
jnear 发表于 2013-10-29 08:38
看了下效果,最后结果是按学期来排序了,不是我要的效果哦。不过还是非常感觉您的帮忙。 - Sub Macro1()
- Dim arr, brr, crr, d As Object, i&, j&, k&, s&
- Set d = CreateObject("scripting.dictionary")
- arr = Sheet1.Range("a1").CurrentRegion
- crr = arr
- brr = Sheet2.Range("a1").CurrentRegion
- For i = 2 To UBound(arr)
- d(arr(i, 1)) = d(arr(i, 1)) & "," & i
- Next
- s = 1
- For i = 1 To UBound(brr)
- x = Split(Mid(d(brr(i, 2)), 2), ",")
- For j = 0 To UBound(x)
- s = s + 1
- For k = 1 To UBound(arr, 2)
- crr(s, k) = arr(x(j), k)
- Next
- Next
- Next
- Range("f1").Resize(UBound(crr), UBound(crr, 2)) = crr
- End Sub
复制代码 |
|