標題: [發問] 當使用OFFSET語法時, 如何貼成值 [打印本頁]

---

作者: xoofer    時間: 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

---

作者: owen06    時間: 2014-12-30 23:28

回復 1# xoofer


    這樣嗎？

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

複製代碼

---

作者: PKKO    時間: 2015-1-1 12:38

回復 1# xoofer

試試看

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

複製代碼

---

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