標題: copy 公式 , 貼上時只要值與數字格式, 簡便的方式 [打印本頁]

---

作者: openpc    時間: 2012-2-20 17:17     標題: copy 公式 , 貼上時只要值與數字格式, 簡便的方式

copy 公式欄位A1到A10 , 貼上時只要值與數字格式, 請教簡便的方式, 因為我是用巨集產生的,所以看來是繁雜, 感謝!

Sheets("Sheet1").Range("A1:A10").Copy
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False

---

作者: register313    時間: 2012-2-20 17:26

回復 1# openpc

Sheets("Sheet1").Range("A1:A10").Copy
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'第2行最後3個功能沒用到

---

作者: openpc    時間: 2012-2-20 17:42

感謝大大的賜教,以後還要向您請教.

---

作者: freeffly    時間: 2012-2-22 16:35

回復 1# openpc


        
         我會把這個Paste:=也省掉，寫成下面的方式
        Sheets("Sheet1").Range("A1:A10").Copy
        Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats

---

作者: JOYARK    時間: 2012-4-26 16:28

謝謝提供學習非常實用

---

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