Question

VBA把单元格内的数据赋给变量

我想把单元格A1中的数据（有多行数据，但都在A1中）赋给变量jd1,以下的写法提示错误,请求各位的解答~!!
赋值以后,我想把变量得到的值给到textbox里面，并且textbox的显示格式与A1一致。

Dim jd1 As String
Worksheets("sheet2").Range("A1").Value = jd1
TextBox1.Text = jd1

Answer 1

第凳和闭者二句代码写反了。
Dim jd1 As String

jd1 = Worksheets("sheet1").Range("A1").Value
TextBox1.Text = jd1
注意：要点击textbox1，选择枣态盯“属性”，“MultiLine"设置成True。

追问

非常感谢，另外我A1中的数据有格式的，比如黑体阿，不同的字号。赋值给到TextBox以后，TextBox显示出来的文字什么格式都没有了，怎么办啊？

追答

要带格式，我做不了，抱歉！

Answer 2

Dim jd1 As String
jd1= Worksheets("困或sheet2").Range("A1"汪链伍唤衡).Value
TextBox1.Text = jd1

Answer 3

Dim jd1 As String
jd1= Worksheets("sheet2").Range("斗羡纯空咐A1"派羡).Value
TextBox1.Text = jd1