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

帖子: 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，每執行一次，便依序向下複製一次。
謝謝

帖子: 36
主題: 2
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2013-1-23
最後登錄: 2019-2-21

2^#

發表於 2013-1-30 12:05 | 顯示全部帖子

回復 2# p212

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

帖子: 36
主題: 2
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2013-1-23
最後登錄: 2019-2-21

3^#

發表於 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

帖子: 36
主題: 2
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2013-1-23
最後登錄: 2019-2-21

4^#

發表於 2013-1-31 14:53 | 顯示全部帖子

回復 5# freeffly

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

[email protected]

帖子: 36
主題: 2
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2013-1-23
最後登錄: 2019-2-21

5^#

發表於 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

帖子: 36
主題: 2
精華: 0
積分: 69
點名: 0
作業系統: Windows 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
來自: 高雄
註冊時間: 2013-1-23
最後登錄: 2019-2-21

6^#

發表於 2013-1-31 23:38 | 顯示全部帖子

回復 8# freeffly

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

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

感謝您