VBAを使用してヘッダー値に基づいて列を選択する方法

Question

現在、特定の値がその列に見つからない場合、行の削除に取り組んでいます。

例Excelデータは

Sl.No  Content 
1   Apple 
2   Ball 
3   Cat 
4   Ball 
5   Cat 

であり、私はそれのために使用していたコードは、このコードの出力は、このコードは完璧に働いている

Sl.No  Content 
1   Apple 
3   Cat 
5   Cat 

ある

Sub Delete() 

Dim startrow As Long 
'starting row number here 
startrow = 2 
' Assuming data to check is in A Column 
Do Until startrow > Cells(Cells.Rows.Count, "A").End(xlUp).Row 
    If Cells(startrow, 2).Value = "Ball" Then 
     Rows(startrow).Delete 
    Else 
     startrow = startrow + 1 
    End If 
Loop 

End Sub 

です。今私はここに小さな変更が必要です。私は列のヘッダー 'コンテンツ'を使用してB列を選択し、セル番号を提供する代わりに 'ボール'を含む行を削除しようとしています。

ご到着時にお手伝いください。 TIA

Answer 1

Sub Delete() 

    Dim startrow As Long 
    Dim rng1 As Range 
    'starting row number here 
    startrow = 2 
    ' Assuming data to check is in A Column 
    Set rng1 = ActiveSheet.UsedRange.Find("Content", , xlValues, xlWhole) 
    If Not rng1 Is Nothing Then 
     Do Until startrow > Cells(Cells.Rows.Count, "A").End(xlUp).Row 
      If Cells(startrow, rng1.Column).Value = "Cat" Then 
       Rows(startrow).Delete 
      Else 
       startrow = startrow + 1 
      End If 
     Loop 
    Else 
     MsgBox "Column Not Found", vbCritical 
    End If 

End Sub