[發問] 關於跨工作表的參照問題..

大家好小妹又來提問了

想請問假設我有兩個工作表 1 跟 2
如果想要用程式設定
工作表 1 的 A2 ~ Z2 要等於工作表 2 的 A2 ~ Z2 的值
應該要怎麼寫呢 ?
最有效率的寫法會是什麼..

看似簡單小妹卻是試了好多種寫法都不成功 ><
煩請大大們救救小妹了 Orz

樓主熱帖

小妹在此向各位大大求教了 Orz

ashan0418

中學生 Rank: 2

帖子: 59
主題: 5
精華: 0
積分: 75
點名: 277
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 基隆
註冊時間: 2012-7-5
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

2^#

發表於 2015-1-21 13:19 | 只看該作者

回復 1# saleen

Sheets("工作表2").Range("A2:Z2").Copy Sheets("工作表1").Range("A2")

TOP

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

3^#

發表於 2015-1-21 15:01 | 只看該作者

回復 2# ashan0418

感謝 Ash 大回復
那如果我要的是值得話
可以改成
Sheets("工作表2").Range("A2:Z2").value.Copy Sheets("工作表1").Range("A2").value
嗎 ?
這樣怪怪的

小妹在此向各位大大求教了 Orz

TOP

ashan0418

中學生 Rank: 2

帖子: 59
主題: 5
精華: 0
積分: 75
點名: 277
作業系統: xp
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 基隆
註冊時間: 2012-7-5
最後登錄: 2024-11-27

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章

4^#

發表於 2015-1-21 16:45 | 只看該作者

回復 3# saleen

Sheets("工作表2").Range("A2:Z2").Copy
Sheets("工作表1").Range("A2").PasteSpecial Paste:=xlPasteValues

TOP

saleen

中學生 Rank: 2

帖子: 53
主題: 13
精華: 0
積分: 70
點名: 0
作業系統: Windows 8 x64
軟體版本: Office 2013
閱讀權限: 20
性別: 女
來自: Taipei
註冊時間: 2013-6-3
最後登錄: 2015-1-28

5^#

發表於 2015-1-21 19:40 | 只看該作者

回復 4# ashan0418

Ash 大大 , 我可能要換個方式問 ~
我現在的程式碼是長這樣 :

Sub Ref()
工作表3.Cells(2, 1) = 工作表1.Cells(2, 1)
工作表3.Cells(2, 2) = 工作表1.Cells(2, 3)
工作表3.Cells(2, 3) = 工作表1.Cells(2, 3)
                                    .
                                    .
                                    .
End Sub

因為工作表 1 是 DDE
所以這樣的話應該要怎麼寫會比較好呢 ~? ><
我試過 , 用複製貼上的方式似乎會有問題 T_T
是不是可以用 Range 來寫 , 但是我又不知道應該怎麼寫最有效率 :'(

小妹在此向各位大大求教了 Orz

TOP

ashan0418