다른 시트를 기반으로 시트에서 행을 삭제하는 매크로

Question

다른 시트의 값을 통합하는 매크로가 있으며이 값을 기반으로 첫 번째 시트로 돌아가서 삭제해야합니다.

G2 it의 값 (Linha 마누라)의 경우 F2의 행 번호를 얻고 행의 미리보기를 삭제합니다. 그 외의 경우 I2로 이동하고 동일한 작업을 수행합니다. 도와 주셔서 감사합니다.

Sheet

지금까지이 있습니다

Sub Delete() 

    Range("G2").Select 
    Do Until IsEmpty(ActiveCell) 
    Range("G" & Rows.Count).Select 
    If Range("G" & 2).Value = ("<<<Manter a linha") Then 
    Sheets("Controle Estoque Fixo").Select 
    Rows("2:5").Select 
    Selection.EntireRow.Delete 
    End If 
    Loop 

편집 : 이제

Dim r1 As Range, c As Range 
    Dim s As String 
    Dim v As String 
    Dim k As String 
    Dim t As String 
    k = "1" 
    Set r1 = Range(Cells(2, "H"), Cells(Rows.Count, "H").End(xlUp)) 
    v = Sheets("Analise de Estoque").Cells(2, "G").Value 
    For Each c In r1 
     If c.Text = ("<<<Manter a linha") Then 
     Sheets("Controle Estoque Fixo").Select 
     t = (v - 1) 

     Rows(t).Select.Clear 


     End If 
    Next 
End Sub 

내가 돌아가서 행이 들어있는 셀의 값을 선택할 수 있습니다, 그 I 계속 지키고 싶습니다. 그래서 "- 1"을 앞에 붙이면됩니다.하지만 구걸을 추가하려고 노력하고 있습니다. (T를 문자열로 넣고 = 1 넣으 려합니다)

Answer 1

범위를 작성하고 모든 행을 한 번에 삭제해야합니다.

Sub DeleteMatches() 
    Dim r1 As Range, c As Range 
    Dim s As String 

    Set r1 = Range(Cells(2, "G"), Cells(Rows.Count, "G").End(xlUp)) 

    For Each c In r1 
     If c = "<<<Manter a linha" Then 
      If Len(s) Then s = s & "," 
      s = s & "A" & c.Offset(0, -1) 
     End If 
    Next 

    If Len(s) Then 
     s = Left(s, Len(s) - 1) 
     Sheets("Controle Estoque Fixo").Range(s).EntireRow.Delete 
    End If 

End Sub 

행을 삭제하고 삭제하지 않으려면 원하는대로 수행 할 수 있습니다.

Sub DeleteMatches2() 
    Dim r1 As Range, c As Range 
    Dim t As String 

    With Sheets("Analise de Estoque") 
     Set r1 = .Range(.Cells(2, "H"), .Cells(Rows.Count, "H").End(xlUp)) 
    End With 

    For Each c In r1 
     If c.Text = "<<<Manter a linha" Then 
      Sheets("Controle Estoque Fixo").Select 
      t = c.Offset(0, -1) 
      Rows(t).ClearContents 
     End If 
    Next 
End Sub 

Sub DeleteMatches3() 
    Dim r1 As Range, c As Range 
    Dim i As Long, LastRow As Long 
    Dim t As String 

    With Sheets("Analise de Estoque") 
     LastRow = .Cells(Rows.Count, "H").End(xlUp) 
     For i = 2 To LastRow 
      If .Cells(i, "G").Text = "<<<Manter a linha" Then 
       t = .Cells(i, "F").Text 
       Sheets("Controle Estoque Fixo").Rows(t).ClearContents 
      End If 
     Next 

    End With 
End Sub 

그냥 당신이 첫번째

For i = LastRow To 2 Step - 1 

    Next