无法修改单元格的.Text属性

Question

Sub ex2()
    Sheets("sheet2").Range("a2").Text = "Anil"
End Sub

我想将数据Anil复制到单元格a2中，但我收到RUN时间错误说：

  

无法设置Range类的Text属性。

任何人都可以建议如何使用TEXT METHOD工作吗？

Answer 1

.Text是只读的。

要设置单元格值，请使用.Value属性。

Answer 2

使用.Value属性而不是.Text：

Sub ex2()
    Sheets("sheet2").Range("a2").Value = "Anil"
End Sub

Answer 3

根据以下链接，您应该使用Value方法......

http://msdn.microsoft.com/en-us/library/office/gg192736(v=office.14).aspx

Sub ex2()
    Sheets("sheet1").Range("a2").Value = "Anil"
End Sub