は、どのように私は、文字列の最初のインスタンスを選択し、行全体を削除

Question

以下のコードは、それが完璧に動作しますが、私はマクロを削除することができますので、何かを追加したい

Sub Rand() 
    ActiveWorkbook.Sheets("Kudo Prize").Range("B1").Formula = Evaluate("=INDEX(Lista!$A:$A,RANDBETWEEN(1,COUNTA(Lista!$A:$A)))") 
End Sub 

リストからランダムにアイテムをピックアップしますリストからアイテムを削除するアイテムが何度も繰り返されるので、たとえばB1の結果が "Coffe"であるとします。 "Lista"シートの "Coffe"の最初のインスタンスを見つけて削除します行全体

Answer 1

Macro Manは、マッチングにrange.find（）を使用できることを示唆しているため、cells.EntireRow.Deleteを使用して行を削除できます。 私は

Sub Rand() 
Dim value_to_find As String 
Dim row_number As Integer 
ActiveWorkbook.Sheets("Kudo Prize").Range("B1").Formula = Evaluate("=INDEX(Lista!$A:$A,RANDBETWEEN(1,COUNTA(Lista!$A:$A)))") 
value_to_find = ActiveWorkbook.Sheets("Kudo Prize").Range("B1").Text 
row_number = ActiveWorkbook.Sheets("Lista").Range("A:A").Find(value_to_find).Row 
ActiveWorkbook.Sheets("Lista").Cells(row_number, 1).EntireRow.Delete 
End Sub