GBKEE

回復 1# 518587
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     With Range("A2", Range("A2").End(xlDown)).Columns(3) 'A2 往下日期的儲存格 的第3欄
   
4.         '儲存格的公式=IF(DAY(A2)=1,10000-B2,C1-B2)
   
5.         .Cells = "=IF(DAY(RC[-2])=1,10000-RC[-1],R[-1]C-RC[-1]) " '如工作表C2輸入公式後下拉
   
6.        ' .Value = .Value '公式轉為值
   
7.     End With
   
8. End Sub

複製代碼