ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¬Y°Ï¶¡ ¹j¤@¦C¶K¤W

³Ì²³æ¬O¥ý­pºâ¦n °Ï¶¡½d³ò µM«áµ{¦¡´N«Ü²³æ¼g¡A

Workbooks("³Ì·s®w¦s.xlsx").Activate

Activesheet.Range("33:33,35:35,....(¨Ì¦¹Ãþ±À¼g§¹)").Select
Selection.Insert Shift:=xlDown

set wb = Workbooks("A®w¦sªí.xlsx").Sheets("½LÂI")

For i = 6 To 26 Step 2

wb.Range(i & ":" & i).Copy Activesheet.Range(28 + i & ":" & 28 + i)

Next

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD