특정 문자 제외 나머지 행 삭제

[적토마]

안녕하세요 ~ 초보라 질문만 하네요

저한테도 언젠간 답변을 다는 날이 올까요.. ㅎㅎ

다름이 아니라

특정문자가 들어간 나머지 행을 삭제하고 싶은데요

인터넷에서 뒤지니

Sub ex()

Dim r As Range

Set r = Range(Range("B1"), Range("B" & Rows.Count).End(xlUp))

For i = r.Count To 1 Step -1

    If r.Cells(i) Like "*호*" Or r.Cells(i) = "" Then

        r.Cells(i).EntireRow.Delete

    End If

Next i

End Sub

이런 코드가 나와서 실행하니 특정문자가 들어간 행은 삭제가 잘 됩니다.

반대로 그냥 생각하기에 붉은색으로 표시한 = 부분을 <> 로 바꾸니 에러가 나오네요 ㅎㅎ;

저는 여러 행에 소수점이 들어간 데이터 이외에 모든것을 삭제할려구 합니다.

도움 부탁드립니다.~ !!

엑셀 버전은 2010 입니다.

[윤슬]

안녕하세요?

위 코드를...

Sub ex()
Dim i As Long

With ActiveSheet
For i = .Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If .Cells(i, 2).Value = "" Or .Cells(i, 2).Value Like "*호*" Then
.Rows(i).EntireRow.Delete
End If
Next i
End With
End Sub
로 수정해 보세요...

그럼 잘 해결되시길... ^^*

[적토마]

윤슬님 답변 감사합니다. 적어주신 코드로 하니 "호"가 들어간것만 지워집니다~ ㅎㅎ;