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

我想将数据 Anil 复制到单元格 a2 中,但出现运行时错误:

无法设置 Range 类的 Text 属性。

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

4

3 回答 3

15

.Text是只读的。

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

于 2013-07-28T14:38:52.080 回答
4

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

Sub ex2()
    Sheets("sheet2").Range("a2").Value = "Anil"
End Sub
于 2013-07-28T14:38:57.103 回答
2

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

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

Sub ex2()
    Sheets("sheet1").Range("a2").Value = "Anil"
End Sub
于 2013-07-28T14:40:01.080 回答