Activecell.Value=10 Activecell.Value="合计"
Cell(1,1).Value=200 Range("A1").Value=200
Range("A1:B2").Value=300
Range((Cells(1,1)),(Cells(5,5)))=100
'输入数组常量3
Worksheets("Sheet1").Range("a1:c5").FormulaArray="=3"
'输入数组公式
Worksheets("Sheet1").Range("E1:E3").FormulaArray="=sum(e1:e3)"
Range("A1:D1")=Array("aaa","bbb","ccc","ddd")