|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub jimin()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim arr, brr
arr = Sheet1.Range("f1:l" & Sheet1.Range("l65535").End(xlUp).Row)
For i = 2 To UBound(arr)
For j = 2 To UBound(arr, 2)
d(arr(i, 1) & arr(1, j)) = arr(i, j)
Next
Next
brr = Sheet1.Range("a1:c" & Sheet1.Range("a65535").End(xlUp).Row)
For i = 2 To UBound(brr)
brr(i, 3) = d(brr(i, 1) & brr(i, 2))
Next
Sheet1.Range("a1").Resize(UBound(brr), 3) = brr
End Sub
|
|