|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
这就是个简单的字典+事件吧
- Sub test()
- Dim i, arr, dic, rs
- Set dic = CreateObject("scripting.dictionary")
- arr = Sheet1.UsedRange
- For i = 2 To UBound(arr)
- If Not dic.exists(arr(i, 1) & arr(i, 2)) Then
- dic(arr(i, 1) & arr(i, 2)) = i
- Else
- dic(arr(i, 1) & arr(i, 2)) = dic(arr(i, 1) & arr(i, 2)) & Space(1) & i
- End If
- Next
- With Sheet2
- .Range("d7:l13").ClearContents
- If dic.exists(.Cells(1, 2).Value & .Cells(2, 2).Value) Then
- rs = Split(dic(.Cells(1, 2).Value & .Cells(2, 2).Value))
- For i = 0 To UBound(rs)
- Sheet1.Cells(rs(i), 5).Resize(1, 5).Copy .Cells(7 + i, 4).Resize(1, 5)
- .Cells(7 + i, 9) = Sheet1.Cells(rs(i), 11)
- .Cells(14, 4) = Sheet1.Cells(rs(i), 10)
- Next
- End If
- End With
- End Sub
复制代码 |
评分
-
1
查看全部评分
-
|