값을 찾고 발생하는 행을 삭제하십시오.

저는 VBA 프로그래밍을 처음 접했고, 멈추는 지점에 왔습니다. 이것은 아마도 그렇게 어렵지는 않지만 도움이 될 것입니다!값을 찾고 발생하는 행을 삭제하십시오.

기본 선언 및 기타 물건 :

편집 : 여기

Dim found As Range 
Dim ArtNr As String 
Tabelle1.Activate 
ArtNr = InputBox("..") 
Range("L1") = ArtNr 
MsgBox ("..")

내가 이전에 입력 된 값을 찾아이 값이 발생하는 줄을 삭제하려는 중요한 코드입니다 라인 , 삭제되는 것은 삭제되지 않습니다.

Set found = ActiveSheet.Columns(2).Find _ 
      (what:=ActiveSheet.Range("L1"), LookIn:=xlValues, lookat:=xlWhole) 
If Not found Is Nothing Then found.EntireRow.Delete 

End Sub

의견이 있으십니까?

출처

2014-09-04 Ka Chiing

수있는 매개 변수 중 하나 LookAt 더 [FASTER (http://stackoverflow.com/questions/11631363 갖는다/how-to-copy-a-line-in-excel-a-specific-word-and-pasting-to-another-excel-s) 방식을 사용합니다. 자동 필터를 사용하십시오. –

아니, 아무것도 바뀌지 않았습니다 .. 여전히이 줄을 지우지 않을 것입니다. –

그것은 Range ("L1")에있는 것의 단 하나의 인스턴스만을 찾을 것이라고 생각합니다. –

Range.Find 옵션 다음 enter image description here

사용 lookat:=xlPart 하나 대신 lookat:=xlWhole

출처

2014-09-04 13:59:31 EvenPrime

값을 찾고 발생하는 행을 삭제하십시오.

답변

관련 문제