標題: [發問] 感覺很簡單卻想破頭-從A檔案的固定列copy到B檔案新增一列 [打印本頁]

---

作者: okdnsfht    時間: 2015-2-3 17:05     標題: 感覺很簡單卻想破頭-從A檔案的固定列copy到B檔案新增一列

想做一個 VBA程式

從A檔案，固定將第34列，copy到B檔案。

然後開C檔案的時候，也一樣固定將第34列，copy到B檔案，但要新增一列。

到時候B檔案裡，就有2列資料，來自A、C檔案…

看似很簡單，卻想破頭…

---

作者: 電暖爐    時間: 2015-2-3 23:31

本帖最後由 電暖爐 於 2015-2-3 23:32 編輯

回復 1# okdnsfht


    寫在A檔、C檔

1. Private Sub Workbook_Open()
   
2. Rows(34).Copy
   
3. Workbooks("B.xlsx").Activate
   
4. Workbooks("B.xlsx").Worksheets(1).Select
   
5. Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteAll
   
6. Application.CutCopyMode = False
   
7. End Sub

複製代碼

A檔和C檔開啟時，就會自動把34列的文字加在B檔
前提是B檔必須開著，不然就要把Workbooks("B.xlsx").Activate改成Workbooks Open "檔的路徑"

---

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