範囲内のセルをクリア

Question

リボンで作成したカスタムボタンを使用して範囲内のコンテンツをクリアする際に問題が発生しています。ボタンはうまく動作し、関数を呼び出しますが、セル "A6"だけがクリアされます。私は検索し、検索し、毎回同じ結果を持つ複数のバリエーションを試しました。ここにはいくつかの試みがあります。

Function ClearSheet() 

    Worksheets("Template").Range("A6, I100000").ClearContents 

End Function 


Function ClearSheet() 

    Worksheets("Template").Range("A6, I100000").Clear 

End Function 

Function ClearSheet() 

    With Worksheets("Template") 
     .Range("A6, I100000").ClearContents 
    End With 

End Function 

Function ClearSheet() 
Dim Rng as Range 
Rng = Worksheets("Template").Range("A6, I100000") 

    Rng.ClearContents 

End Function 

Function ClearSheet() 

    Worksheets("Template").Range("A6, I100000").Value = "" 

End Function 

その他何百もの、私は逃して何か助けてください！

Answer 1

範囲の適切な使用があるので：。

Range("A6:I100000").ClearContents