MS 워드 2016 매크로

내가 VBA에 새로운 오전하지만 난이 단어를 2016 템플릿을하고 다음 섹션이 있습니다MS 워드 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 함께 들어 I = 1 .Rows.Count 단계 -1 경우 렌 (.Cell (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

답변

관련 문제