帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2025-11-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-9-28 14:54 | 只看該作者

不同檔案間的複製

請問.....該怎麼從檔案1複製某些固定的儲存格至檔案2某些固定的儲存格??
例如: 在檔案1複製A3 A4 A5 A6 A7 A9 到檔案2的 B3 B4 B5 B10 B11 B12 (以上是隨便打的,沒有一定)

樓主熱帖

初學者color

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2010-9-28 19:35 | 只看該作者

回復 1# color790
你要複製儲存格的欄列與目的儲存格的欄列都不是一連續範圍
所以將複製儲存格的值,儲存於字典物件.於目的儲存格一一給予

Sub Ex()
Dim D As Object, i As Integer, E As Range
Set D = CreateObject("Scripting.Dictionary")
i = 1
For Each E In Workbooks("book1").Sheets("SHEET1").Range("A3:A7,A9")
D(i) = E.Value
i = i + 1
Next
i = 1
For Each E In Workbooks("book2").Sheets("SHEET1").Range("B3:B5,B10:B12")
E = D(i)
i = i + 1
Next
End Sub

複製代碼

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2025-11-17

3^#

發表於 2010-9-28 23:18 | 只看該作者

本帖最後由 color790 於 2010-9-28 23:24 編輯

謝謝GBKEE版主的解答,但這樣需要每次都keyin workbook name (因為每次檔案1&檔案2的檔名都不相同)
有沒有辦法在檔案1以 with activesheet 複製儲存格的值,儲存於字典物件後, 之後再至檔案2 以with activesheet 貼上也就是分兩個vba程式,或是有更好的方法,感恩

.

初學者color

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

4^#

發表於 2010-9-29 00:00 | 只看該作者

Sub yy()
With ActiveSheet
ary = Array(.[a3], .[a4], .[a5], .[a6], .[a7], .[a9])
End With
Workbooks(2).Activate
With ActiveSheet
ary2 = Array(.[b3], .[b4], .[b5], .[b10], .[b11], .[b12])
For i = 0 To 5
ary2(i).Value = ary(i)
Next
End With
End Sub

TOP

color790

中學生 Rank: 2

帖子: 117
主題: 34
精華: 0
積分: 155
點名: 0
作業系統: windows XP
軟體版本: OFFICE 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-19
最後登錄: 2025-11-17

5^#

發表於 2010-9-29 00:31 | 只看該作者

本帖最後由 color790 於 2010-9-29 00:56 編輯

回復 4# oobird

謝謝OOBIRD版主的回答
  1.請問...是不是要複製的檔案第一個開,要貼上的檔案第二個開
  2.為什麼要for i ...
  3.為什麼要0 to 5

另外問個小問題- 以前用office2003不會有這個問題,現在用2007版,就是要編輯個人工作活頁薄的巨集時,都會出現 " 無法在隱藏活頁薄編輯巨集 .... " 非得要打開PERSONAL.XLSB 才能編輯,而且PERSONAL關掉後巨集就不能使用,這個有解嗎? 2010版的也會這樣嗎?

初學者color

TOP

oobird