錄製巨集每日向下新增一列資料? - Excel程式區

[發問] 錄製巨集每日向下新增一列資料?

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2012-9-2 14:25 | 顯示全部帖子

回復 1# diekid

Option Explicit
Sub Ex()
Sheets("A").Range("A1:E1").Copy Sheets("B").Cells(Rows.Count, "A").End(xlUp).Offset(1)
'Sheets("B")的A欄最後一列(Cells(Rows.Count, "A"),
'End(xlUp)往上到有資料列
'Offset(1)的下一列
End Sub

複製代碼

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。