从字表中获取整数数据

VBA的VAL()函数将包含数值的字符串转换为数字。该函数从左侧开始识别数字,直到遇到非数字字符,并忽略后面的所有内容。对于从表格单元格中提取的文本,这非常有用,因为文本中包含的单元格结束标记将被忽略。

Dim C As Long

For C = 1 To 3
    With ActiveDocument.Tables(1)
        If Val(.Rows.Last.Cells(C).Range.Text) > 20 Then
            Debug.Print "Delete rows above"
        End If
    End With
Next C