標題: [發問] 如何複製欄位公式 [打印本頁]

---

作者: lukychien    時間: 2013-1-30 10:38     標題: 如何複製欄位公式

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

---

作者: p212    時間: 2013-1-30 11:41

回復 1# lukychien
圈選A1:E1範圍後再往下拖行複製即可，不知您的問題在哪？可否再予詳述問題以供學習？

---

作者: lukychien    時間: 2013-1-30 12:05

回復 2# p212

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

---

作者: lukychien    時間: 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

---

作者: freeffly    時間: 2013-1-31 13:08

回復 4# lukychien


    用autofill的方式(下拉填滿)
   我在2003是用這種方式
   你可以用錄製的方式
   然後去修改

---

作者: lukychien    時間: 2013-1-31 14:53

回復 5# freeffly


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

[email protected]

---

作者: lukychien    時間: 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

---

作者: freeffly    時間: 2013-1-31 17:41

回復 7# lukychien


    我的方式不是這樣
   是2樓說的
   你可以用說明查看看autofill這各的說明

---

作者: lukychien    時間: 2013-1-31 23:38

回復 8# freeffly


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

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

感謝您

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)