錄製巨集每日向下新增一列資料? - 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

複製代碼

靜思自在 : 並非有錢魷是快樂，問心無愧心最安。