samwang

¦^´_ 1# JT1221

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Brr, Crr(), i&, x&, j%
Brr = Sheets("Á`ªí").Range("a1").CurrentRegion
Arr = Sheets("¬d¸ß").Range("a1").CurrentRegion
ReDim Crr(1 To UBound(Arr), 1 To UBound(Brr, 2))
For i = 2 To UBound(Arr)
    For x = 2 To UBound(Brr)
        If Arr(i, 1) = Brr(x, 1) Then
            Crr(i - 1, 1) = Brr(x, 3): Crr(i - 1, 2) = Brr(x, 6)
            For j = 8 To UBound(Brr, 2): Crr(i - 1, j - 5) = Brr(x, j): Next
        End If
    Next
Next
Sheets("¬d¸ß").Range("b2").Resize(UBound(Arr), UBound(Brr, 2)) = Crr
End Sub