使用MID提取字符串：VBA RunTime错误424：对象必需

Question

我使用Windows 7和Office 2013来使用Mid来提取字符串的部分内容，具体取决于条件。我得到以下代码的运行时错误424：

RW = 1
Set c = ActiveSheet.Cells(6, 3)
While Not IsEmpty(c.Offset(RW, 0).Value)
c.Offset(RW, 3).Text = Mid(c.Offset(RW, 0).Text, 7, 2) ' Getting error on this line

If (Mid(c.Offset(RW, 0).Text, 3, 1) = "/") Then
Set c.Offset(RW, 1).Text = Mid(c.Offset(RW, 0).Text, 1, 2)
Set c.Offset(RW, 2).Text = Mid(c.Offset(RW, 0).Text, 4, 2)
ElseIf (Mid(c.Offset(RW, 0).Text, 3, 1) = "-") Then
Set c.Offset(RW, 1).Text = Mid(c.Offset(RW, 0).Text, 4, 2)
Set c.Offset(RW, 2).Text = Mid(c.Offset(RW, 0).Text, 1, 2)
End If

对此有何帮助？

Answer 1

文字属性为只读。

改为使用 Value 属性。