VBA赋值给指定单元格

这是一个Range对象基本操作实例，对指定单元格赋值，然后使用弹窗获取值。

代码如下：

Sub test1()
Worksheets("Sheet1").Range("A5").Value = 22
MsgBox "工作表Sheet1内单元格A5中的值为" _
& Worksheets("Sheet1").Range("A5").Value
End Sub