ªð¦^¦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 : ¥Ç¿ù¥XÄb®¬¤ß¡A¤~¯à²M²bµL·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD