標題: [發問] 依日期需求複製範圍公式問題 [打印本頁]

---

作者: msmplay    時間: 2018-1-18 21:58     標題: 依日期需求複製範圍公式問題

本帖最後由 msmplay 於 2018-1-18 21:59 編輯

[attach]28260[/attach]

請問該如何使用巨集達到以下效果:
1. 按下【複製公式】按鈕後，可自動將今日範圍公式複製貼至隔日，並將今日範圍公式複製貼上為值(將公式存為值)
例如1：今日為1/18，按下【複製公式】按鈕後，自動選取EK:ER(1/18範圍)並複製公式，先將公式貼至ES:EZ(1/19範圍)，再將EK:ER公式複製貼上為值(將公式存為值)
例如2：今日為1/19，按下【複製公式】按鈕後，自動選取ES:EZ(1/19範圍)並複製公式，先將公式貼至FA:FH(1/20範圍)，再將ES:EZ公式複製貼上為值(將公式存為值)
以此類推

提醒:
因範圍中有許多合併儲存格，希望可以保持原格式達成目的，如果真的無法有合併儲存格，希望可提供變通方式，非常感謝~~~~~~~


[attach]28261[/attach]

---

作者: iamaraymond    時間: 2018-1-29 00:28

不知道這樣寫有沒有符合你的需求

1. Sub 貼公式()
   
2. Range("FA4:FH72").Formula = Range("ES4:EZ72").Formula
   
3. End Sub
   
4. 
   
5. Sub 貼上值()
   
6. 
   
7. With Range("ES4:EZ72")
   
8.     .Select
   
9.     .Copy
   
10.     Selection.PasteSpecial Paste:=xlPasteValues
    
11. End With
    
12. Application.CutCopyMode = False
    
13. End Sub

複製代碼

希望有幫助到你

---

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