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

agogo6789

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

下載 (162.73 KB)

2021-2-7 13:39

agogo6789

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

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

agogo6789

試了一下，這個應該比較合我的需求~
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