VBA反復処理からcopyngした後に次の行に移動

Question

1つのシートにループしたい、ある単語が見つかった場合は、別のシートにコピーする必要があります。私の問題は、一度コピーした後、次のマッチの次の行には行かないということです。同じマッチを30行にコピーし続けるだけです。

For Each hs In c.Range(c.Range("F1"), c.Range("F" & Rows.Count).End(xlUp)) 
    If InStr(hs, "+8i94") Or InStr(hs, "some") Then 
     hs.EntireRow.Copy Destination:=ac.Range("A90", "A120") 
    End If 
Next 

Answer 1

あなたの問題の私の理解が正しければ、これはそれを行う必要があります

r=89  
For Each hs In c.Range(c.Range("F1"), c.Range("F" & Rows.Count).End(xlUp)) 
If InStr(hs, "+8i94") Or InStr(hs, "some") Then 
    r=r+1 
    hs.EntireRow.Copy Destination:=ac.range("A" & r) 
End If 
Next