返回列表 上一主題 發帖

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

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

大家好  小妹又來提問了

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


看似簡單小妹卻是試了好多種寫法都不成功 ><
煩請大大們救救小妹了 Orz
小妹在此向各位大大求教了 Orz

回復 1# saleen

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

TOP

回復 2# ashan0418


    感謝 Ash 大回復
那如果我要的是值得話
可以改成
Sheets("工作表2").Range("A2:Z2").value.Copy Sheets("工作表1").Range("A2").value
嗎 ?
這樣怪怪的
小妹在此向各位大大求教了 Orz

TOP

回復 3# saleen


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

TOP

回復 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

回復 5# saleen


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


這樣試試!!

TOP

回復 7# ashan0418


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

救命啊 !!!!
小妹在此向各位大大求教了 Orz

TOP

        靜思自在 : 愛不是要求對方,而是要由自身的付出。
返回列表 上一主題