返回列表 上一主題 發帖

[發問] 複製貼上

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 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
複製代碼

TOP

        靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。
返回列表 上一主題