返回列表 上一主題 發帖

請教！每個交易日的sheet資料更新後，另一sheet資料如何自動向下延伸一列。感謝！

agogo6789

帖子
4 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
Windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2019-6-26 
最後登錄
2025-2-5 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-2-7 13:55 | 顯示全部帖子

請教！每個交易日的sheet資料更新後，另一sheet資料如何自動向下延伸一列。感謝！

請教！同一工作簿有一個sheet（TX-日盤）的資料每日會更新，更新後，我會手動滑鼠十字下拉更新同一工作簿的另一個sheet（TX-OHLC）的資料。請教 excel 函式語法或 vba 程式語法自動向下延伸一列sheet（TX-OHLC）的資料。感謝！
收藏 分享

agogo6789

帖子
4 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
Windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2019-6-26 
最後登錄
2025-2-5 
2#
發表於 2021-2-8 23:56 | 顯示全部帖子
Private Sub CommandButton1_Click()
'
' 自動填滿 巨集
'

'
    Dim r
    r = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A1746:O1746").Select
    Selection.AutoFill Destination:=Range("A1747:O" & r), Type:=xlFillDefault
    Range("A" & r).Select
End Sub

TOP

agogo6789

帖子
4 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
Windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2019-6-26 
最後登錄
2025-2-5 
3#
發表於 2021-2-8 23:58 | 顯示全部帖子
雖沒有人回覆，還是感謝在這裡學到的知識。繼續學習。

TOP

agogo6789

帖子
4 
主題
1 
精華
0 
積分
0 
點名
0  
作業系統
Windows 
軟體版本
7 
閱讀權限
10 
註冊時間
2019-6-26 
最後登錄
2025-2-5 
4#
發表於 2021-2-9 16:27 | 顯示全部帖子
試了一下，這個應該比較合我的需求~
Private Sub CommandButton1_Click()
'
' 自動填滿 巨集
'

'
    Dim r
    r = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Range("A226:T226").AutoFill Destination:=Range("A226:T" & r), Type:=xlFillCopy
    Range("A" & r).Select
End Sub

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題