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

p212

高中生 Rank: 3 Rank: 3

帖子: 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

lukychien

中學生 Rank: 2

帖子: 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

lukychien

中學生 Rank: 2

帖子: 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

freeffly

高中生 Rank: 3 Rank: 3

帖子: 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

中學生 Rank: 2

帖子: 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

lukychien

中學生 Rank: 2

帖子: 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

freeffly