MS Word 2016宏

Question

我是VBA的新手，但我有一个Word 2016模板，它包含以下部分：

Base Amount:    $   

Service Fee:    $       

Sales Tax %     $           
Other tax %:    $               
Tax 2     %:    $    

我的目标是，如果任何行中都缺少金额，请删除该行。

我尝试记录宏，然后进行更改，但没有运气。

Sub TEST()
    Dim i As Long
    With Selection.Tables(1)
        For i = .Rows.Count To 1 Step -1
            If Len(.Cell(i, 2).Range.Text) = 2 Then
                .Rows(i).Delete
            End If
        Next i
    End With
End Sub

Answer 1

我已经添加 ：

• Trim函数删除无用的空格，这样您只剩下数据
• 将=更改为<=

代码：

Sub TEST()
    Dim i As Integer
    With Selection.Tables(1)
        For i = .Rows.Count To 1 Step -1
            If Len(Trim(.Cell(i, 2).Range.Text)) <= 2 Then
                .Rows(i).Delete
            End If
        Next i
    End With 'Selection.Tables(1)
End Sub