返回列表 上一主題 發帖

同樣是Copy Paste, 有何不同 ?

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-1-21 20:46 | 顯示全部帖子

同樣是Copy Paste, 有何不同 ?

各位高手好,

請問一下, 如下兩個Copy Paste的方式, 有甚麼不同呢 ?

Sub CopyPaste01 ()
Range ("A1").Copy
Worksheets(1).Paste Range("B1")
Application.CutCopyMode = False
End Sub

Sub CopyPaste02 ()
Range ("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

煩請賜教.
收藏 分享

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
2#
發表於 2011-1-21 23:33 | 顯示全部帖子
回復 2# kimbal

感謝kimbal回覆,

請問另一個問題:
01 Range("A1:A3").Copy
02 Range("B1").PasteSpecial xlPasteValues
分別在A1 ~ A3各有一個運算式的值, 所以直接複製到B3時, 就會直接變成複製到B1 ~ B3

之前有看到謝大的方式可以縮短程式, 如下:
Sheets(1).Range("B1") = Sheets(1).Range("A1")

所以我試了:
Sheets(1).Range("B1:B3") = Sheets(1).Range("A1:A3")
結果都沒有動作.

請問要如和Copy Paste超過一個儲存格的資料呢 ?
謝謝.

TOP

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
3#
發表於 2011-1-23 23:35 | 顯示全部帖子
本帖最後由 skybbs 於 2011-1-23 23:45 編輯

回復 4# kimbal

剛剛有試了,

必須還是要寫兩行才可以, 如下:
Range("A1:A3").Copy
Range("B1:B3").Value = Range("A1:A3").Value
如果單純只寫:
Range("B1:B3").Value = Range("A1:A3").Value
好像並不會將A1 - A3的值複製到B1 - B3. 對嗎 ?

TOP

skybbs

帖子
24 
主題
4 
精華
0 
積分
68 
點名
0  
作業系統
WinXP 
軟體版本
Office 2003 
閱讀權限
20 
性別
男 
來自
Taiwan, Taipei 
註冊時間
2011-1-15 
最後登錄
2012-7-31 
4#
發表於 2011-1-24 13:14 | 顯示全部帖子
回復 6# hugh0620

剛剛再試一次, 已經可以可. 請問:
Range("B1:B3").Value = Range("A1:A3").Value
Range("B1:B3") = Range("A1:A3").Value

有加上Value與沒有加上Value在甚麼狀況下會有不同 ?
謝謝.

TOP

        靜思自在 : 我們要做好社會的環保，也要做好內心的環保。
返回列表 上一主題