返回列表 上一主題 發帖

[發問] 如何定時將工作表1的儲存格數字複製到工作表2的儲存格？

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
1# 跳轉到 »
發表於 2016-1-7 15:40 | 顯示全部帖子
'將本vba貼到Module1
Sub test()
    Dim sh1 As Worksheet, sh2 As Worksheet
    Dim I As Integer
    Set sh1 = Sheets("Sheet1")    '請自行改成 "工作表1"
    Set sh2 = Sheets("Sheet2")    '請自行改成 "工作表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
'若要結束, 請按 Ctrl+Break

TOP

yen956

帖子
522 
主題
36 
精華
1 
積分
603 
點名
0  
作業系統
win xp sp3 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2012-12-13 
最後登錄
2021-7-11 
2#
發表於 2016-1-8 21:23 | 顯示全部帖子
回復 3# litcji
Sorry, 我會錯意了, 試試看!!
'將本vba貼到Module1
Public cnt As Integer
Sub copy1()
    Dim sh1 As Worksheet, sh2 As Worksheet, x
    Set sh1 = Sheets("Sheet1")    '請自行改成 "工作表1"
    Set sh2 = Sheets("Sheet2")    '請自行改成 "工作表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
從 test 開始執行
Sub test()
    cnt = 1  '請改成你的起始列
    copy1
End Sub
'若要結束, 請按 Ctrl+Break

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題