標題: [發問] 複製貼上 [打印本頁]

---

作者: acdx    時間: 2013-10-18 15:34     標題: 複製貼上

本帖最後由 acdx 於 2013-10-18 15:37 編輯

我在做資料的複製貼上 將sheet2中一列數值貼到sheet1中特定欄位裡卻出現錯誤
這不是最近本的複製貼上指令嗎?怎麼連這麼都會錯
    Worksheets(2).Range(Cells(13, 6), Cells(13, 6 + RC)).Copy
    Worksheets(1).Cells(13, 7 + RC).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
執行到.Select列時卻顯示"Class Range的Select發法失敗 (錯誤 1004)"
其中RC是一變數: RC = Range("A15").End(xlToRight).Column
究竟問題出在哪裡?

---

作者: stillfish00    時間: 2013-10-18 16:55

回復 1# acdx
因為你工作中的工作表在sheets2，卻要select  sheets1的儲存格，當然不可能。
1.  除非你要選擇sheets1的儲存格前先執行 Worksheets(1).Activate。
2.  比較好的方法是不要用select，兩行合為一行。

1.   Worksheets(2).Range(Cells(13, 6), Cells(13, 6 + RC)).Copy
   
2.   Worksheets(1).Cells(13, 7 + RC).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
   
3.         :=False, Transpose:=False

複製代碼

---

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