[發問] 依日期需求複製範圍公式問題

msmplay

下載 (25.32 KB)

2018-1-18 21:57

請問該如何使用巨集達到以下效果:
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公式複製貼上為值(將公式存為值)
以此類推

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


測試.rar (54.49 KB)

下載次數: 8

2018-1-18 21:57

iamaraymond

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

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

複製代碼

希望有幫助到你