copy 公式 , 貼上時只要值與數字格式, 簡便的方式
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
copy 公式 , 貼上時只要值與數字格式, 簡便的方式
copy 公式欄位A1到A10 , 貼上時只要值與數字格式, 請教簡便的方式, 因為我是用巨集產生的,所以看來是繁雜, 感謝!
Sheets("Sheet1").Range("A1:A10").Copy
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False |
|
|
|
|
|
|
|
- 帖子
- 967
- 主題
- 0
- 精華
- 0
- 積分
- 1001
- 點名
- 0
- 作業系統
- WIN XP
- 軟體版本
- OFFICE 2003
- 閱讀權限
- 50
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-11-29
- 最後登錄
- 2022-5-17
 
|
2#
發表於 2012-2-20 17:26
| 只看該作者
回復 1# openpc
Sheets("Sheet1").Range("A1:A10").Copy
Sheets("Sheet2").Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
'第2行最後3個功能沒用到 |
|
|
|
|
|
|
|
- 帖子
- 25
- 主題
- 11
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- winxp
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-2-16
- 最後登錄
- 2024-3-7
|
3#
發表於 2012-2-20 17:42
| 只看該作者
|
|
|
|
|
|
|
- 帖子
- 586
- 主題
- 123
- 精華
- 0
- 積分
- 763
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- Office 2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-16
- 最後登錄
- 2017-3-14
|
4#
發表於 2012-2-22 16:35
| 只看該作者
回復 1# openpc
我會把這個Paste:=也省掉，寫成下面的方式
Sheets("Sheet1").Range("A1:A10").Copy
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValuesAndNumberFormats |
|
|
字典兩各字 還真難理解
|
|
|
|
|
- 帖子
- 6
- 主題
- 5
- 精華
- 0
- 積分
- 52
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-5-6
- 最後登錄
- 2025-2-3
|
5#
發表於 2012-4-26 16:28
| 只看該作者
|
|
JOYARK
|
|
|
|
|
