微軟Word 2016宏

我是新來的VBA，但我有一個字2016模板，它具有以下幾個部分：微軟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

來源

2017-03-27 user7675421

發佈你的代碼，人們會看到他們是否發現了一些東西。 –

子TEST（）昏暗我只要隨着Selection.Tables（1）對於i = .Rows.Count要1個步驟-1 如果len（。細胞（I，2）.Range.Text）= 2然後 .Rows（I）.Delete 結束如果接下來我結束與結束小組 – user7675421

您的代碼工作正常，我 - 假設你的細胞是「空」除了兩個ASCII字符13 & 7;和你有隻有一張桌子。你確定你正在執行代碼嗎？ –

我說：

功能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

來源

2017-03-29 14:42:15 R3uK

微軟Word 2016宏

回答

相關問題