|
- Sub yyyy()
- Dim arr, crr, brr, r&, r2&, i&, n&
- r = Sheets("AAA").Range("a65536").End(3).Row
- arr = Sheets("AAA").Range("a2:f" & r)
- r2 = Sheets("BBB").Range("a65536").End(3).Row
- crr = Sheets("BBB").Range("a2:m" & r2)
- Sheets("Combine").Range("a2").Resize(UBound(arr), 6) = arr
- brr = Sheets("Combine").Range("a2").Resize(UBound(arr), 14)
- For i = 1 To UBound(brr)
- For n = 1 To UBound(crr)
- If brr(i, 2) = crr(n, 1) Then
- brr(i, 7) = crr(n, 1)
- brr(i, 8) = crr(n, 3)
- brr(i, 9) = crr(n, 4)
- brr(i, 10) = crr(n, 9)
- brr(i, 11) = crr(n, 10)
- brr(i, 12) = crr(n, 11)
- brr(i, 13) = crr(n, 12)
- brr(i, 14) = crr(n, 13)
- End If
- Next
- Next
- Sheets("Combine").Range("a2").Resize(UBound(brr), 14) = brr
- End Sub
复制代码 |
|