EXCEL巨集程式碼_以巨集寫入公式

Sub 寫入公式()
SC = "A"   '來源欄
SR = 4     '來源列
TC = "A"   '目的欄
TR = 1     '目的列

For i = 1 To 50

    S = SC & SR    '公式F中的來源儲存位址
    T = TC & TR    '目的儲存格
    Range(T).Select '
    F = "=IF(SOURCE!" & S & "="""","""",SOURCE!" & S & ")"
    '上面：注意公式中有"者，必須用兩個"代替。
    ActiveCell.Formula = F
   
    SR = SR + 20
    TR = TR + 1

Next i
End Sub