返回列表 上一主題 發帖

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

okdnsfht

帖子
1 
主題
1 
精華
0 
積分
2 
點名
0  
作業系統
windows 7 
軟體版本
office 2010 
閱讀權限
10 
性別
男 
註冊時間
2015-2-3 
最後登錄
2015-2-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-3 17:05 | 只看該作者

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

想做一個 VBA程式

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

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

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

看似很簡單，卻想破頭…
收藏 分享

電暖爐

帖子
45 
主題
10 
精華
0 
積分
62 
點名
0  
作業系統
win8 
軟體版本
office2007 
閱讀權限
20 
註冊時間
2015-1-18 
最後登錄
2015-10-9 
2#
發表於 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 "檔的路徑"

TOP

        靜思自在 : 有願放在心裡，沒有身體力行，正如耕田不播種，皆是空過因緣。
返回列表 上一主題