標題: 請教！每個交易日的sheet資料更新後，另一sheet資料如何自動向下延伸一列。感謝！ [打印本頁]

---

作者: agogo6789    時間: 2021-2-7 13:55     標題: 請教！每個交易日的sheet資料更新後，另一sheet資料如何自動向下延伸一列。感謝！

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

---

作者: agogo6789    時間: 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

---

作者: agogo6789    時間: 2021-2-8 23:58

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

---

作者: agogo6789    時間: 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

---

作者: Eclipse_Fuzzy    時間: 2021-2-14 21:47

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

---

作者: Eclipse_Fuzzy    時間: 2021-2-15 12:55

回復 4# agogo6789



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

[attach]33062[/attach]

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)