엑셀 VBA

Question

는 아래의 코드는 열 머리글과 셀 값에 따라 여러 행을 제거

1. 에 수정 될 수 있을까 열 머리글을 바탕으로 전체 행을 삭제하는 매크로 및
2. 여러 열이 작업을 수행 행 조합?

예 : 열 "상태"값 "완료" 주기의 모든 시트를 통해 상태와 상태가있는 전체가 모든 행을 삭제 말합니다 어떤 헤더를 찾아?

Sub Delete_Rows_Based_On_Header_and_Value() 
' 
' Delete_Rows_Based_On_Header_and_Value Macro 
' 
' Declaration 
Dim a as long 
Dim w as long 
Dim vDELCOLs as variant 
Dim vCOLNDX as variant 
Dim vDELROWs as variant 
Dim vROWNDX as variant 

vDELCOLs = array("status","Status Name","Status Processes") 
vDELROWs = array("Complete","Completed","Done") 

with Activeworkbook 
    for w=1 to .worksheets.count 
     with worksheets(w) 
' I know this part is to delete columns based on the column name and I am not sure how to modify it to just check column name then delete row based on the value on that column only. 
      for a=lbound(vdelcols) to ubound(vdelcols) 
       vcolndx=application.match(vdelcols(a), .rows(1), 0) 
       if not iserror(vcolndx) then 
        .columns(vcolndx).entirecolumn.delete 
       end if 
      next a 
     end with 
    next w 
end with 

Answer 1

다음 코드 vDELROWS 같은 배열의 배열을 취할 것이며, 임의의 값이 대응하는 컬럼에있는 것과 일치하는 경우 행을 삭제한다. (가) 상태 열이 "완료"를 포함하는 경우 행을 삭제하려면

Sub Delete_Rows_Based_On_Header_and_Value() 
    ' 
    ' Delete_Rows_Based_On_Header_and_Value Macro 
    ' 
    ' Declaration 
    Dim a As Long 
    Dim w As Long 
    Dim vDELCOLs As Variant 
    Dim vCOLNDX As Variant 
    Dim vDELROWs As Variant 
    Dim vROWNDX As Variant 
    Dim r As Long 
    Dim v As Long 

    vDELCOLs = Array("status", "Status Name", "Status Processes") 
    vDELROWs = Array(Array("Complete", "Pending"), Array("Completed", "Pending"), Array("Done")) 

    With ActiveWorkbook 
     For w = 1 To .Worksheets.Count 
      With Worksheets(w) 
       For a = LBound(vDELCOLs) To UBound(vDELCOLs) 
        vCOLNDX = Application.Match(vDELCOLs(a), .Rows(1), 0) 
        If Not IsError(vCOLNDX) Then 
         For r = .Cells(.Rows.Count, vCOLNDX).End(xlUp).Row To 1 Step -1 
          For v = LBound(vDELROWs(a)) To UBound(vDELROWs(a)) 
           If .Cells(r, vCOLNDX).Value = vDELROWs(a)(v) Then 
            .Rows(r).EntireRow.Delete 
            Exit For 
           End If 
          Next 
         Next 
        End If 
       Next a 
      End With 
     Next w 
    End With 
End Sub 

Answer 2

자동 필터는 더 이상 코드를 작성하기 전에

Sub DeleteRows() 
    Sheet1.Range("a1:c35").AutoFilter Field:=2, Criteria1:="Completed" 
    Sheet1.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete 
Sheet1.UsedRange.AutoFilter 
'repeat for each value 
End Sub