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

帖子: 4
主題: 1
精華: 0
積分: 0
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2019-6-26
最後登錄: 2022-8-4

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-2-7 13:55 | 只看該作者

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

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

Eclipse_Fuzzy

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 57
點名: 0
作業系統: Windows
軟體版本: 10
閱讀權限: 20
註冊時間: 2020-4-25
最後登錄: 2024-5-6

6^#

發表於 2021-2-15 12:55 | 只看該作者

回復 4# agogo6789

我把每日更新的資料只抓取需要用到的到 TX_OHLC 的B2:I2....J2資料要登入的列，初始值從4開始....FYR

TX_紀錄example.rar (17.89 KB)

Eclipse_Fuzzy

中學生 Rank: 2

帖子: 10
主題: 3
精華: 0
積分: 57
點名: 0
作業系統: Windows
軟體版本: 10
閱讀權限: 20
註冊時間: 2020-4-25
最後登錄: 2024-5-6

5^#

發表於 2021-2-14 21:47 | 只看該作者

你應該是先用VBA或是巨集每天更新台指期資料..到TX sheet...但你要的是記錄歷史資料..所以又複製需要的資料貼到TX-OHLC sheet....你要的不需要用到VBA...
你可以把TX-OHLC 儲存格用日期比對 ...如果日期=前一交易日日期則儲存格顯示空白...如果不相等..就把資料複製過去....然後TX-OHLC 所有儲存格都可以下拉複製公式....
基本上都是要複製TX sheet的資料...只是你增加一個判斷的公式...如果是同一天那記不要複製了...如果日期不同就把資料抓過去....你VBA都能寫了..這樣說應該可以懂吧...

帖子: 4
主題: 1
精華: 0
積分: 0
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2019-6-26
最後登錄: 2022-8-4

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

帖子: 4
主題: 1
精華: 0
積分: 0
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2019-6-26
最後登錄: 2022-8-4

3^#

發表於 2021-2-8 23:58 | 只看該作者

雖沒有人回覆，還是感謝在這裡學到的知識。繼續學習。

帖子: 4
主題: 1
精華: 0
積分: 0
點名: 0
作業系統: Windows
軟體版本: 7
閱讀權限: 10
註冊時間: 2019-6-26
最後登錄: 2022-8-4

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