한 번에 여러 행을 삭제하는 Excel 매크로 만들기

Question

코드를 온라인에서 찾은 다음 편집하려고합니다. 코드는 VBA에 있으며 매크로 코드가 하나가 아닌 여러 행을 삭제하도록합니다. 다음은 코드입니다.

Sub findDelete() 
    Dim c As String 
    Dim Rng As Range 

    c = InputBox("FIND WHAT?") 

    Set Rng = Nothing 

    Set Rng = Range("A:A").Find(what:=c, _ 
     After:=Range("A1"), _ 
     LookIn:=xlFormulas, _ 
     lookat:=xlPart, _ 
     SearchOrder:=xlByRows, _ 
     SearchDirection:=xlNext, _ 
     MatchCase:=False) 

    Rng.EntireRow.Delete shift:=xlUp 
End Sub 

Answer 1

대신 찾기를 사용, 찾기 다중 값과에서 InputBox를 Autofilter을 사용하고 VisibleCells

Sub findDelete() 

Dim c As String, Rng As Range, wks as Worksheet 

c = InputBox("FIND WHAT?") 

Set wks = Sheets(1) '-> change to suit your needs 
Set Rng = wks.Range("A:A").Find(c, After:=Range("A1"), LookIn:=xlFormulas, _ 
          lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
          MatchCase:=False) 

If Not Rng Is Nothing Then 

    With wks 

     .Range(.Range("A1"), .Range("A" & .Rows.Count).End(xlUp)).AutoFilter 1, c 
     Set Rng = Intersect(.UsedRange, .UsedRange.Offset(1), .Range("A:A")).SpecialCells(xlCellTypeVisible) 
     Rng.Offset(1).EntireRow.Delete 

    End With 

End If 

End Sub 

편집

교체하려면/삭제 이렇게 삭제 :

Option Explicit 

Sub FindAndDeleteValues() 

Dim strValues() as String 

strValues() = Split("these,are,my,values",",") 

Dim i as Integer 

For i = LBound(strValues()) to UBound(strValues()) 

    Dim c As String, Rng As Range, wks as Worksheet 
    c = strValues(i) 

    '.... then continue with code as above ... 

Next 

End Sub 

Answer 2

루프를 While 루프로 마무리하면됩니다.

Sub findDelete() 
    Dim c As String 
    Dim Rng As Range 
    c = InputBox("FIND WHAT?") 
    Set Rng = Nothing 
    Do While Not Range("A:A").Find(what:=c) Is Nothing 
     Set Rng = Range("A:A").Find(what:=c, _ 
     After:=Range("A1"), _ 
     LookIn:=xlFormulas, _ 
     lookat:=xlPart, _ 
     SearchOrder:=xlByRows, _ 
     SearchDirection:=xlNext, _ 
     MatchCase:=False) 
     Rng.EntireRow.Delete shift:=xlUp 
    Loop 
End Sub 

Answer 3

너 알레 ady가 Rng.EntireRow.Delete shift:=xlUp에있는 행을 삭제하는 코드가 있으면 삭제하려는 행으로 범위를 설정하는 코드가 필요합니다. VBA에서 평소와 같이,이 방법을 많이 수행 할 수 있습니다

이

'***** By using the Rng object 
Set Rng = Rows("3:5") 

Rng.EntireRow.Delete shift:=xlUp 

Set Rng = Nothing 

'***** Directly 
Rows("3:5").EntireRow.Delete shift:=xlUp 

귀하의 Find 문은 c의 첫 번째 발생을 발견,이 둘 이상의 행을 삭제하지 왜 그건.