返回列表 上一主題 發帖

利用陣列來複製貼上??

jasonwu0114

帖子
28 
主題
7 
精華
0 
積分
43 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-11-8 
最後登錄
2020-4-9 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-2-21 10:25 | 顯示全部帖子

利用陣列來複製貼上??

假如有A1~50個檔案
要複製每個檔案的RANGE(“A1:C20”)再加上一列D1~20=X
然後插入到B工作簿range(“A1”)
如果一個一個用copy-> insert方式EXCEL會出現錯誤(執行階段錯誤’1004’ 為避免資料遺失,EXCEL無法將空白儲存格移出工作表……….)

如果利用陣列方式
將50個檔案資料寫入陣列再一次貼到檔案B
請問要如何寫???
謝謝
收藏 分享
小人物

jasonwu0114

帖子
28 
主題
7 
精華
0 
積分
43 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-11-8 
最後登錄
2020-4-9 

論壇贊助勳章
2#
發表於 2014-2-21 13:11 | 顯示全部帖子
本帖最後由 jasonwu0114 於 2014-2-21 13:12 編輯

回復 2# GBKEE


    假如有A1~50個檔案 (還是工作表 )
有50個workbooks(A1).sheet("工作表1"),workbooks(A2).sheet("工作表1")...........................

要複製每個檔案的RANGE(“A1:C20”)再加上一列D1~20=X  什麼意思
=>要複製 A1:D20  對嗎?

A1:C20是工作表內資料
想要在每一 列後面加上一欄日期(EX:2014/02/21)
變成A1:D20

麻煩GBKEE了
謝謝
小人物

TOP

jasonwu0114

帖子
28 
主題
7 
精華
0 
積分
43 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-11-8 
最後登錄
2020-4-9 

論壇贊助勳章
3#
發表於 2014-2-27 10:44 | 顯示全部帖子
有高手可以幫忙嗎
感恩
小人物

TOP

jasonwu0114

帖子
28 
主題
7 
精華
0 
積分
43 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
台灣 
註冊時間
2013-11-8 
最後登錄
2020-4-9 

論壇贊助勳章
4#
發表於 2014-2-27 16:48 | 顯示全部帖子
回復 5# Hsieh
非常感謝
研究中
    另外想請教
ar(s) = Application.Index(Ay, j)
Application.Transpose(Application.Transpose(ar))
這2行的意思是???
小人物

TOP

        靜思自在 : 話多不如話少，話少不如話好。
返回列表 上一主題