本示例在 Sheet1 的 A1 单元格中创建一个公式。
ActiveWorkbook.Worksheets("Sheet1").Range("A1").Formula = "=10*RAND()"