標題: [發問] 關於跨工作表的參照問題.. [打印本頁]

---

作者: saleen    時間: 2015-1-21 10:50     標題: 關於跨工作表的參照問題..

大家好  小妹又來提問了

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


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

---

作者: ashan0418    時間: 2015-1-21 13:19

回復 1# saleen

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

---

作者: saleen    時間: 2015-1-21 15:01

回復 2# ashan0418


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

---

作者: ashan0418    時間: 2015-1-21 16:45

回復 3# saleen


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

---

作者: saleen    時間: 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 來寫 , 但是我又不知道應該怎麼寫最有效率 :'(

---

作者: ashan0418    時間: 2015-1-22 11:35

回復 5# saleen


Sheets("工作表1").Range("A2:" & [iv2].End(xlToLeft).Address).Copy
Sheets("工作表3").Range("A2").PasteSpecial Paste:=xlPasteValues   


這樣試試!!

---

作者: saleen    時間: 2015-1-22 13:25

回復 7# ashan0418


    這樣用似乎可行
但這樣還是卡到我上一個沒人幫我解答的問題 T_T
http://forum.twbts.com/thread-13247-1-1.html
不知為啥用這種寫法
圖表的 數列值 就會跟著跑掉...

救命啊 !!!!

---

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