返回列表 上一主題 發帖

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

msmplay

帖子
218 
主題
73 
精華
0 
積分
290 
點名
0  
作業系統
WIN10 
軟體版本
Office2010 
閱讀權限
20 
性別
女 
註冊時間
2014-5-19 
最後登錄
2022-11-29 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-1-18 21:58 | 只看該作者

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

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



請問該如何使用巨集達到以下效果:
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)
收藏 分享
*宅女一枚無誤*

iamaraymond
　暱稱: Raymond Chien

中學生Rank: 2

帖子
109 
主題
12 
精華
0 
積分
177 
點名
0  
作業系統
win10 
軟體版本
office2013 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2017-11-19 
最後登錄
2023-7-5 
2#
發表於 2018-1-29 00:28 | 只看該作者
不知道這樣寫有沒有符合你的需求
  1. Sub 貼公式()
  2. Range("FA4:FH72").Formula = Range("ES4:EZ72").Formula
  3. End Sub

  5. Sub 貼上值()

  7. With Range("ES4:EZ72")
  8.     .Select
  9.     .Copy
  10.     Selection.PasteSpecial Paste:=xlPasteValues
  11. End With
  12. Application.CutCopyMode = False
  13. End Sub
複製代碼
希望有幫助到你
Excel VBA網頁資料收集教學:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題