別のシートに基づいてシート上の行を削除するマクロ

Question

別のシートの値を集約し、これらの値に基づいて最初のシートに戻って削除するマクロがあります。

シートはG2の値（マニアリニア）の場合は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 

EDIT：今

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