VBAは、セルD1の値と等しい場合、カバーシート上のA3：A999の範囲内のセル内容を削除することに優れています。

Question

VBAは、カバーシート上のA3：A999のセル内容を削除します別のコードから入れてください。これはおそらく単純ですが、分かりにくいです。

Answer 1

If myWorksheet.Range("D1") = myValue then myWorksheet.Range("A3:A999").ClearContents 

説明：myWorksheet =ワークシート変数。あなたが作業しているシートを表現することは、常に良いアイデアです。これは例えばSetコマンドで行われる。 Set myWorksheet = Sheets（ "Sheet 1"） .ClearContentsは、親範囲内の値をすべてクリアしますが、書式は残ります。代わりに.Clearを使用して、セルを空のデフレート状態にクリアします。

Answer 2

正しく理解していれば、セルの内容がセルD1の値と等しい場合は、範囲A3：A999のセルからセルの内容を削除します。このためには、セルの内容を比較し、必要に応じてセルの内容をクリアするループを別々に実行する必要があります。

For X = 3 To 999 
    If Range("A" & X).Value = Range("D1").Value Then 
     Range("A" & X).Clear 
Next X 

条件が満たされた場合、これは（細胞すなわちAX及びD1はXが反復のために使用される整数であり、同一のコンテンツを有する）セルの内容をクリアします。これが機能するには、正しいワークシートをアクティブにする必要があります（そうでない場合は、ワークシート名とドットの前に範囲：worksheetName.）。