返回列表 上一主題 發帖

copy 公式 , 貼上時只要值與數字格式, 簡便的方式

openpc

帖子
25 
主題
11 
精華
0 
積分
50 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-16 
最後登錄
2024-3-7 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
2#
發表於 2012-2-20 17:26 | 只看該作者
回復 1# openpc

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

TOP

openpc

帖子
25 
主題
11 
精華
0 
積分
50 
點名
0  
作業系統
winxp 
軟體版本
office2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-16 
最後登錄
2024-3-7 
3#
發表於 2012-2-20 17:42 | 只看該作者
感謝大大的賜教,以後還要向您請教.

TOP

freeffly

帖子
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
字典兩各字 還真難理解

TOP

JOYARK

帖子
6 
主題
5 
精華
0 
積分
52 
點名
0  
作業系統
WIN7 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2011-5-6 
最後登錄
2024-11-20 
5#
發表於 2012-4-26 16:28 | 只看該作者
謝謝提供學習非常實用
JOYARK

TOP

        靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。
返回列表 上一主題