:'(
For K=1 to 250
Worksheets("ÀɦW¸ê®Æ").Cells(K, 3).Value = Cells(K, 1)
Worksheets("ÀɦW¸ê®Æ").Cells(K, 4).Value = Cells(K, 5)
Worksheets("ÀɦW¸ê®Æ").Cells(K, 5).Value = Cells(K, 10)
Next K
§Ú¨Ï¥ÎEXCELªºVBA¼g¤F¤@¤p¬q¤u¨ã¨ó§U§Ú·h¤u§@ªí¤ºªº¸ê®Æ¡A¤jP¦p¤W
¥i¬O¹Lµ{¤¤¤@ª½¥X²{¤U±ªºµe±¡A
¨Ï±o¥²¶·«ö¤U¡© ½T©w¡©¡A¤~¯àÄ~Äò°õ¦æ¡K
½Ð±Ð¦U¦ì¤j¤j¦p¦óÁקK¥¦¤@ª½¥X²{ÁÙ¯àÄ~Äò°õ¦æ©O¡H ÁÂÁÂ~~~·P®¦~~~~~
|