[µo°Ý] 2­Ósheet ¤§¶¡ªº¸ê®Æ½Æ»s,¦p¦óÁY´î®É¶¡

morris_lth

¥ÎFor / Next °õ¦æ sh3  ½Æ»s¨ì sh4 , ­Y¦³500¦Cªº¸ê®Æ½Æ»s»Ý­n10¬í,
¬O§_¦³¸û§Ö³tªº¼gªk,ÁקK±N¨Ó¸ê®Æ¶W¹L¼Æ¤dµ§,­nªá¤W¦n´X¤ÀÄÁ¤~¯à¶]§¹.

Set sh3 = Sheets("Source")
Set sh2 = Sheets("Target")
  
  Application.ScreenUpdating = False ' Ãö³¬¿Ã¹õ§ó·s
  
  FinalRow = sh3.Range("A" & Rows.Count).End(xlUp).Row '­pºâ­ì©lSHEET¦³¦h¤ÖROW
    sh2.[A4:Z1000].Delete Shift:=xlToLeft                                         '²M°£Sh2(Target)
        For  i = 2 To FinalRow
               sh3.Cells(i, 28).Copy sh2.Cells(i + 2, 1)                                        '«e­±¼Æ¦r=¨Ó·½Àɪº¦C
               sh3.Cells(i, 10).Copy sh2.Cells(i + 2, 2)                                        '«á­±¼Æ¦r=¥ØªºÀɪº¦C
               sh3.Cells(i, 7).Copy sh2.Cells(i + 2, 3)
               sh3.Cells(i, 26).Copy sh2.Cells(i + 2, 4)
               sh3.Cells(i, 5).Copy sh2.Cells(i + 2, 6)
               sh3.Cells(i, 13).Copy sh2.Cells(i + 2, 7)
               sh3.Cells(i, 2).Copy sh2.Cells(i + 2, 8)
               sh3.Cells(i, 21).Copy sh2.Cells(i + 2, 9)
               sh3.Cells(i, 24).Copy sh2.Cells(i + 2, 10)
               sh3.Cells(i, 19).Copy sh2.Cells(i + 2, 14)
   Next

ÁÂÁÂ

­ã´£³¡ªL

Sub test99()
Dim Arr, Brr, Cr1, Cr2
Set sh3 = Sheets("Source")
Set sh2 = Sheets("Target")
Arr = Range(sh3.Cells(1, 28), sh3.Cells(Rows.Count, 1).End(xlUp))
ReDim Brr(1 To UBound(Arr), 1 To 14)
Cr1 = Array(28, 10, 7, 26, 5, 13, 2, 21, 24, 19)
Cr2 = Array(1, 2, 3, 4, 6, 7, 8, 9, 10, 14)
sh2.[A4:Z1000].Delete Shift:=xlToLeft
For i = 2 To UBound(Arr)
    For j = 0 To UBound(Cr1)
        Brr(i - 1, Cr2(j)) = Arr(i, Cr1(j))
    Next j
Next i
sh2.[A4].Resize(UBound(Brr), 14) = Brr
End Sub


'===================================

morris_lth

¸g¹L´X¤Ñªº¾Ç²ß²×©ó§ËÀ´¥B§¹¦¨,7¦Ê¦hµ§ªº¸ê®Æ­ì¥»­nªá15¬í,
²{¦b¤£¥Î2¬í§Y¥i§¹¦¨,ÁÂÁ­㴣³¡ªLªº¨ó§U.