R1C1形式で数式入力  Sub test() ' R1C1形式で数式入力    Range("E3").FormulaR1C1 = "=SUM(RC[-3]:RC[-1])" ···