매크로를 사용하여 Excel에서 0을 제거

Question

주어진 컬럼, 내용 및 주석에서 0을 제거 할 수있는 코드를 포맷하는 데 도움이되는 다른 게시물의 일부 코드가 있습니다. 그러나 코드는 첫 번째 셀 (0이 아니며 0은 포함하지 않음)도 삭제합니다. 코드는 다음과 같습니다

Sub Testme() 
    Dim rng1 As Range 
Set rng1 = Columns(2) 
With rng1 
    .AutoFilter 1, "0" 
    With rng1.Offset 
     .ClearContents 
     .ClearComments 
    End With 
End With 
End Sub 

이 목록 :

6.28 91.4 
6.28 95.5 
6.28 96.2 
6.28 86.9 
6.28 0 
6.28 100.7 
6.28 90.1 

가되다 : 감사 0을 포함하지 않는 첫 번째 행을 제거을 중지하는 방법

6.28  
6.28 95.5 
6.28 96.2 
6.28 86.9 
6.28  
6.28 100.7 
6.28 90.1 

어떤 생각.

Answer 1

자동 필터가 필요하지 않습니다. 다음을 찾아서 교체 할 수 있습니다.

Columns(2).Replace What:="0", Replacement:="", LookAt:=xlWhole 

Answer 2

rng1의 정의에 따라 전체 열이 선택됩니다. 당신이 맑은 오프셋 할 때, 당신은 필터링 된 열을 모두 삭제하는 C.는

이 코드는 당신이 원하는 것을 할 것입니다 :

Sub Testme() 
    Dim rng1 As Range 
    Set rng1 = Sheet1.UsedRange 
    With rng1 
     .AutoFilter 1, "0" 
     With rng1.Offset(1, 0) 
      .ClearContents 
      .ClearComments 
     End With 
    End With 
End Sub