|
Sub test()
Dim brr(1 To 100000, 1 To 11)
Set d = CreateObject("scripting.dictionary")
arr = Sheets("美团").UsedRange
For i = 2 To UBound(arr)
a = Array(arr(i, 3), arr(i, 4), arr(i, 5), arr(i, 6), arr(i, 7))
d(arr(i, 1)) = a
Next
arr = Sheets("数据").UsedRange
For i = 2 To UBound(arr)
s = Left(arr(i, 3), 5)
If d.exists(s) Then
a = d(s)
For j = 0 To 4
If a(j) <> "" Then
n = n + 1
For k = 1 To 11
brr(n, k) = arr(i, k)
brr(n, 4) = a(j)
Next
End If
Next
Else
n = n + 1
For k = 1 To 11
brr(n, k) = arr(i, k)
brr(n, 4) = brr(n, 3)
Next
End If
Next
Sheets("数据").[a2].Resize(n, 11) = brr
End Sub
|
|