[µo°Ý] ¦p¦ó©w®É±N¤u§@ªí1ªºÀx¦s®æ¼Æ¦r½Æ»s¨ì¤u§@ªí2ªºÀx¦s®æ¡H

litcji

[µo°Ý] ¦p¦ó©w®É±N¤u§@ªí1ªºÀx¦s®æ¼Æ¦r½Æ»s¨ì¤u§@ªí2ªºÀx¦s®æ¡H
°ÝÃD¡G
³]¸m«öÁä"¶}©l" "¼È°±" "µ²§ô"
«ö¤U"¶}©l"«á¨C¹j5¬í±N
¤u§@ªí1ªºA1:A5Àx¦s®æ¼Æ¦r½Æ»s¨ì¤u§@ªí2ªºA1:A5
¤u§@ªí1ªºB1:B5Àx¦s®æ¼Æ¦r½Æ»s¨ì¤u§@ªí2ªºB1:B5
¤u§@ªí1ªºC1:C5Àx¦s®æ¼Æ¦r½Æ»s¨ì¤u§@ªí2ªºC1:C5
.
.
.
ª½¨ì¤u§@ªí1ªº³Ì«á¤@¦C
«ö"¼È°±"¯à¤¤Â_ «ö"µ²§ô"«K°±¤î
.............................
½Ð±Ð¦U¦ì¥ý¶i°ª¤âVBA¤£ª¾¼g¡H  µL­­·P®¦¡I

litcji

¦¨¥\...¤Ó¦n¤F
·PÁÂyen956¤j¨ó§U
Æg...Æg...Æg................Æg+10000

yen956

¦^´_ 3# litcji
Sorry, §Ú·|¿ù·N¤F, ¸Õ¸Õ¬Ý!!
'±N¥»vba¶K¨ìModule1
Public cnt As Integer
Sub copy1()
    Dim sh1 As Worksheet, sh2 As Worksheet, x
    Set sh1 = Sheets("Sheet1")    '½Ð¦Û¦æ§ï¦¨ "¤u§@ªí1"
    Set sh2 = Sheets("Sheet2")    '½Ð¦Û¦æ§ï¦¨ "¤u§@ªí2"
    sh1.Cells(cnt, 1).Resize(1, 5).Copy sh2.Cells(cnt, 1)
    cnt = cnt + 1
    Application.OnTime Now + TimeValue("00:00:05"), "copy1"
End Sub
±q test ¶}©l°õ¦æ
Sub test()
    cnt = 1  '½Ð§ï¦¨§Aªº°_©l¦C
    copy1
End Sub
'­Y­nµ²§ô, ½Ð«ö Ctrl+Break

qaz200581

¥[¤Jsleepªº«ü¥O´N¥i¥HÅo

litcji

·PÁÂyen956¤j¸Ñµª
¥u¬O µLªk¨C¹j5¬í½Æ»s¤@¦C ¤£¾å±o¬O§Ú­þ¨à§Ë¿ù¤F °õ¦æ®ÉÀþ¶¡´N¤w¥þ½Æ»s

yen956

'±N¥»vba¶K¨ìModule1
Sub test()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim I As Integer
    Set sh1 = Sheets("Sheet1")    '½Ð¦Û¦æ§ï¦¨ "¤u§@ªí1"
    Set sh2 = Sheets("Sheet2")    '½Ð¦Û¦æ§ï¦¨ "¤u§@ªí2"
    Application.OnTime Now + TimeValue("00:00:05"), "test"
    For I = 1 To sh1.[A65536].End(xlUp).Row
        sh1.Cells(I, 1).Resize(1, 5).Copy sh2.Cells(I, 1)
    Next
End Sub
'­Y­nµ²§ô, ½Ð«ö Ctrl+Break