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

[µo°Ý] ¦p¦ó¨ú±osheet1¨C¤@Äæªº¸ê®Æ¨C¹j5µ§½Æ»s¨ìsheet2

Sub TEST()
Dim R&, i&, xH As Range
Sheets("Sheet2").UsedRange.Clear
Set xH = [Sheet2!A1]
With Sheets("Sheet1")
¡@¡@¡@.[1:2].Copy xH
¡@¡@¡@Set xH = xH(3)
¡@¡@¡@For i = 7 To .UsedRange.Rows.Count Step 5
¡@¡@¡@¡@¡@.Rows(i).Copy xH
¡@¡@¡@¡@¡@Set xH = xH(2)
¡@¡@¡@Next
End With
End Sub

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD