如何使用VBA获取单词表中的行值

Question

当使用VBA在单词表中的特定行上没有数据时，我正在尝试删除单词表的最后一行。但是到目前为止，它所做的只是删除最后一行并抛出丢失对象的错误。

我尝试设置Text属性，如文档所示：

Set VCell = objTable2.Cell(j,2).Range.Text

但是它不起作用，因为它抛出一个错误，指出需要字符串对象。

这是我用来执行删除的代码：

   If j < 9 Then

        For i = 1 To Ubound(TC_STP_Array)

            objTable2.Rows.Last.Select          

            Set VCell = objTable2.Cell(j,2).Range.Text

            If objTable2.Rows.Last.IsLast and VCell = "" Then
                objTable2.Rows.Last.Cells.Delete
            End If


         Next   
End if

我得到的第一个错误是：

必需的对象：'[字符串“•”]'

在线：

Set VCell = objTable2.Cell(j,2).Range.Text

并且当行上有数据时，我得到这个：

必需的对象：'[字符串“ Test•”]'

关于如何解决此问题的任何想法？

Answer 1

已解决，通过删除设置词 VCell = objTable2.Cell（j，2）.Range.Text 由于它不是对象，因此仅对象而不是字符串才需要。