创建一窗体，放置一标签控件label1粘贴窗体代码Private Sub UserForm_Initialize()Label1.Caption = Cells(2, 1)End Sub回到按F5运行，可看到了。
text1.text=range("a1").value将单元格的数据赋值给文本框
