Su
MsgBox Range("A En
Sub test3()
MsgBox "用公式填充单元格,本例为随机数公式" Range("A1:H8").Formula = "=Rand()"
End Sub