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

[µo°Ý] ½Ð±ÐBY©T©w¦C§ì¨ú¸ê®Æ®w¸ê®Æ¤§¤è¦¡

¦^´_ 1# KITTYBOY
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim i%, ii%
  3.     ii = 2
  4.     With Sheets("2")
  5.         For i = 2 To .Cells(Rows.Count, "B").End(xlUp).Row Step 12
  6.             .Cells(i, "A") = Sheets("1").Cells(ii, "A")
  7.              ii = ii + 1
  8.         Next
  9.     End With
  10. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD