帮我写一个获取指定单元格的数据到用户窗口中，用VBA写

可以使用VBA中的InputBox函数获取用户输入的单元格地址，然后使用Range对象获取该单元格的值，并将值显示在用户窗口中。以下是示例代码：

Sub GetCellData()
    Dim cellAddress As String
    Dim cellValue As Variant
    
    '获取用户输入的单元格地址
    cellAddress = InputBox("请输入单元格地址:")
    
    '如果用户取消输入，则退出子程序
    If cellAddress = "" Then Exit Sub
    
    '获取单元格的值
    cellValue = Range(cellAddress).Value
    
    '将值显示在用户窗口中
    MsgBox "单元格" & cellAddress & "的值为：" & cellValue
End Sub