麻辣家族討論版版 » Excel程式區 » 當使用OFFSET語法時, 如何貼成值

返回列表下一主題上一主題發帖

[發問] 當使用OFFSET語法時, 如何貼成值

小學生 Rank: 1

帖子: 5
主題: 2
精華: 0
積分: 7
點名: 0
作業系統: window7
軟體版本: office 2007
閱讀權限: 10
性別: 男
註冊時間: 2014-12-27
最後登錄: 2014-12-30

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2014-12-30 16:55 | 只看該作者

[發問] 當使用OFFSET語法時, 如何貼成值

本帖最後由 xoofer 於 2014-12-30 16:57 編輯

各位先進請問,我想複製貼上,但用了OFFSET之後無法使用貼上值的語法 ( Range("G1").Offset(i, 0).PasteSpecial xlPasteValues)
只能用Activesheet.paste ,再另外複製貼上值一次......
可否協助,若我想貼成值的話該如何寫?

感激!!

Range("G1").Offset(i, 0).Select
ActiveSheet.Paste

Range("G1").Offset(i, 0).PasteSpecial xlPasteValues

收藏

　暱稱: 阿軒

中學生 Rank: 2

帖子: 396
主題: 12
精華: 0
積分: 425
點名: 1
作業系統: Win10
軟體版本: Office 2016
閱讀權限: 20
性別: 男
來自: 台中
註冊時間: 2013-7-2
最後登錄: 2026-8-12

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2014-12-30 23:28 | 只看該作者

回復 1# xoofer

這樣嗎？

Sub test()
For i = 1 To 5
Range("G1").Copy
Range("g1").Offset(i, 0).PasteSpecial xlPasteValues
Next
End Sub

複製代碼

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-1-1 12:38 | 只看該作者

回復 1# xoofer

試試看

With Range("G1")
.Copy
.Offset(0, 1).PasteSpecial Paste:=xlPasteValues
End With

複製代碼

PKKO

靜思自在 : 【是否發揮了良能？】人間壽命因為短暫，才更顯得珍貴。難得來一趟人間，應問是否為人間發揮了自己的良能，而不要一味求長壽。

返回列表下一主題上一主題