Visual Basic - 스프레드 시트에서 행 삭제

발행물

최대 900, 000 행 및 열 Q (값 열) Sheet2 데이터가 있습니다. 나는 열 Q에서 볼 VB를 작성하는 방법을 모르겠다. 그리고이 값이 1.0E + 17, 1.0E + 30, 1.5E + 30 THEN 행과 일치하지 않는다면?

정확한 값을보고 해당 행을 삭제할 것입니다 아래 VB이 있습니다. 하지만 그 값이있는 행을 삭제하지는 않지만 다른 모든 행은 삭제하는 반대가 필요합니다.

 Sub Test () 셀 범위, 셀 범위, 델로 범위 '영점 및 1e + 22 삭제시 rng = 인터 섹트 (범위 ( "Q : Q"), ActiveSheet.UsedRange) = "1E + 17"_ 또는 (Cell.Value) = "1E + 17"_ 또는 (Cell.Value) = "100000000000000000"_ 또는 (Cell.Value) = "51.8"_ 또는 (Cell.Value) = "Inf"Then del is Nothing Then Set del = 셀 : 그렇지 않으면 del = Union (del, Cell) End If End If 다음 셀 On Error 재개 다음 del.EntireRow.Delete End Sub 

해결책

다음을 변경하십시오.

 또는 (Cell.Value) = "Inf"then del is Nothing 그렇다면 _ tp 또는 (Cell.Value) = "Inf"그런 다음 del이 Nothing이면 

이 팁에 대해 rizvisa1에게 감사드립니다.