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

diekid

不好意思
想請教一個關於巨集的問題

我要錄製的巨集按鈕是從a工作表複製資料到b工作表的a2:e2選擇性貼上/值

每一個交易日要按按鈕更新一列資料
如下:
8/29 a2:e2
8/30 a3:e3
8/31 a4:e4
...........

每一個交易日會有一列資料
但我錄製的結果都不會向下新增一列貼上
它一直在覆蓋之前的資料
請問要怎麼做才能每日向下新增一列資料?

謝謝

diekid

終於搞定了
用了兩個模組
但存檔時有點慢
感覺資料越存越多時會當掉

謝謝兩位的回覆

diekid

我試著寫
但還是不行
不知道出了什麼問題?
麻煩各位老師們解惑

謝謝



此檔為凱基全球理財王DDE

我要今日從"DDE工作表"
複製C3:G3到"電子工作表"A4:E4選擇性貼上/值(只複製貼上值的部份,不是DDE連結)
複製C4:G4到"傳產工作表"A4:E4選擇性貼上/值
複製C5:G5到"金融工作表"A4:E4選擇性貼上/值

隔日從"DDE工作表"
複製C3:G3到"電子工作表"A5:E5選擇性貼上/值
複製C4:G4到"傳產工作表"A5:E5選擇性貼上/值
複製C5:G5到"金融工作表"A5:E5選擇性貼上/值

再隔日從"DDE工作表"
複製C3:G3到"電子工作表"A6:E6選擇性貼上/值
複製C4:G4到"傳產工作表"A6:E6選擇性貼上/值
複製C5:G5到"金融工作表"A6:E6選擇性貼上/值

以此類推
每一個交易日會有一列資料

jonn0510

回復 3# diekid
你不會寫程式,但是你會錄製巨集,那麼將  GBKEE  老師 所寫的程序,拷貝至你所錄製的巨集裏(自己錄製的內容刪除).即可

diekid

請問有沒有辦法不用寫程式碼就做可以做到我想要的結果
因為我還不會寫
我以為我想要的結果只差滑鼠在巨集裡幾個動作就可以完成

GBKEE

回復 1# diekid

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

複製代碼