- Sub 引用异簿数据()
- Dim Wb As Workbook
- Dim Temp As String
- Dim d, arr, brr, i&, a#, b#
- Set d = CreateObject("scripting.dictionary")
- Application.ScreenUpdating = False
- Temp = ThisWorkbook.Path & "\总表.xlsx"
- Set Wb = GetObject(Temp)
- arr = Wb.Sheets(1).Range("A1:C2199").Value
- Wb.Close False
- Set Wb = Nothing
- For i = 2 To UBound(arr)
- d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3))
- Next
- brr = Range("A1:C2316").Value
- For i = 2 To UBound(brr)
- a = d(brr(i, 1))(0)
- b = d(brr(i, 1))(1)
- brr(i, 2) = a
- brr(i, 3) = b - a
- Next
- [a1].Resize(UBound(brr), 3) = brr
- Set d = Nothing
- Application.ScreenUpdating = True
- End Sub
复制代码 |