Sub Macro1() Range("D5").Select '你要写入公式的单元格 ActiveCell.FormulaR1C1 = _ "=SUMIF(凭证信息汇总!R3C15:R2000C15,R[1]C1,凭证信息汇总!R3C6:R2000C6)" End Sub