|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
写完才知楼主需要工作表事件:
- Sub gj23w98()
- Set d = CreateObject("scripting.dictionary")
- With Sheets("数据源")
- r = .Cells(.Rows.Count, 1).End(3).Row
- arr = .Range("a2:e" & r)
- For i = 1 To UBound(arr)
- d(arr(i, 2)) = i
- Next
- End With
- r = Cells(Rows.Count, 3).End(3).Row
- brr = Range("c2:f" & r)
- For i = 1 To UBound(brr)
- If d.Exists(brr(i, 1)) Then
- n = d(brr(i, 1))
- For j = 2 To 4
- brr(i, j) = arr(n, j + 1)
- Next
- End If
- Next
- Range("c2").Resize(UBound(brr), UBound(brr, 2)) = brr
- End Sub
复制代码 |
|