Excel VBA를 사용하여 첫 번째 열의 특정 코드가 포함 된 행을 삭제하는 방법은 무엇입니까?

Question

매주 보고서를 실행하고 특정 구문 ("CFS-GHOST-DJKT", A 열)이 포함 된 행을 삭제해야합니다. 행이 7에서 시작하여 변수가 있습니다 종료.

내가 온라인 보면서 나는 다음과 같은 코드가 작동해야하지만 난 얻을 오류 및 오류가 늘어나는만큼 내가 믿는 세포 라인 (Lrow, "A")

을 좋아하지 않는 발견 한 내용에 따라 한 삭제 부분은 쓰여진다. 그러나 문제는 선택 측면이다.

Firstrow = 7 
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row 
    With Cells(Lrow, "A") 
     If Not IsError(.Value) Then 
      If .Value = "CFS-GHOST-DJKT" Then .EntireRow.Delete 
     End If 
    End With 

Answer 1

라는 문구 "CFS-GHOST가-DJKT"

이 경우에있어 단 하나 명의 발생을 귀찮게하는 것 ("나는 ... 행을 삭제해야합니다") 성공적인 경우에 그것이 플러스 인 밖으로 오류가 아닙니다했지만 "CFS-GHOST-DJKT"를 포함하는 행을 삭제하지 않은

Dim f As Range 

    Set f = Range("A7", Cells(Rows.Count, "A").End(xlUp)).Find(what:="CFS-GHOST-DJKT", LookIn:=xlValues, lookat:=xlPart) 
    If Not f Is Nothing Then f.EntireRow.Delete 

Answer 2

삭제할 때 마지막 행부터 첫 행까지 반복해야합니다. 그렇지 않으면 행이 건너 뜁니다. 당신이 내러티브에 따라

Dim x As Long 
For x = Cells(Rows.Count, "A").End(xlUp).Row To 7 Step -1 
    If Cells(x, "A") = "CFS-GHOST-DJKT" Then Rows(x).Delete 
Next