返回列表 上一主題 發帖

[發問] 如何複製欄位公式

lukychien

帖子
36 
主題
2 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2013-1-23 
最後登錄
2019-2-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2013-1-30 10:38 | 只看該作者

[發問] 如何複製欄位公式

請教如何複製數個欄位的公式。
複製A1:E1的公式到A2:E2，每執行一次，便依序向下複製一次。
謝謝
收藏 分享

lukychien

帖子
36 
主題
2 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2013-1-23 
最後登錄
2019-2-21 
9#
發表於 2013-1-31 23:38 | 只看該作者
回復 8# freeffly


不好意思，我是看了你的回應之後，突然想到的...

關於 Autofill 的部份，我會再研究研究

感謝您

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
8#
發表於 2013-1-31 17:41 | 只看該作者
回復 7# lukychien


    我的方式不是這樣
   是2樓說的
   你可以用說明查看看autofill這各的說明
字典兩各字 還真難理解

TOP

lukychien

帖子
36 
主題
2 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2013-1-23 
最後登錄
2019-2-21 
7#
發表於 2013-1-31 17:00 | 只看該作者
回復 5# freeffly


感謝您的提示，目前將程式修改之後己經可以複製數個欄位的公式了。感謝!!

Range("A1048576").End(xlUp).Select
Range(Selection, Selection.End(xlToRight)).Copy
Range("A1048576").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

TOP

lukychien

帖子
36 
主題
2 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2013-1-23 
最後登錄
2019-2-21 
6#
發表於 2013-1-31 14:53 | 只看該作者
回復 5# freeffly


小弟不是很明白要如何操作，可否請您稍加說明或寄電郵給我參考
謝謝

[email protected]

TOP

freeffly

帖子
586 
主題
123 
精華
0 
積分
763 
點名
0  
作業系統
WINDOW7 
軟體版本
Office 2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-16 
最後登錄
2017-3-14 

熱烈參與勳章好學求知勳章
5#
發表於 2013-1-31 13:08 | 只看該作者
回復 4# lukychien


    用autofill的方式(下拉填滿)
   我在2003是用這種方式
   你可以用錄製的方式
   然後去修改
字典兩各字 還真難理解

TOP

lukychien

帖子
36 
主題
2 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2013-1-23 
最後登錄
2019-2-21 
4#
發表於 2013-1-31 00:06 | 只看該作者
目前使用的方式如下...

Range("A1048576").End(xlUp).Select
Selection.Copy
Range("A1048576").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False

TOP

lukychien

帖子
36 
主題
2 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2013-1-23 
最後登錄
2019-2-21 
3#
發表於 2013-1-30 12:05 | 只看該作者
回復 2# p212

小弟明白圈選後向下拉即可，但由於欄位的數量很多，不想用'手動'，所以想請教如何用VBA完成
目前小弟只會用單一欄位複製，但由於數量很多，需要花很多時間等待程式一欄一欄完成
謝謝

TOP

p212

帖子
618 
主題
17 
精華
0 
積分
663 
點名
1  
作業系統
WINDOWS 7 
軟體版本
OFFICE 2013 
閱讀權限
50 
性別
男 
來自
Pingtung 
註冊時間
2011-9-2 
最後登錄
2024-7-5 

2014馬年全勤獎章2013蛇年全勤獎章熱烈參與勳章
2#
發表於 2013-1-30 11:41 | 只看該作者
回復 1# lukychien
圈選A1:E1範圍後再往下拖行複製即可，不知您的問題在哪？可否再予詳述問題以供學習？

TOP

        靜思自在 : 成功是優點的發揮，失敗是缺點的累積。
返回列表 上一主題