ªð¦^¦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 : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD