在Excel中使用VBA时，如何清除特定列上的所有内容？

Question

我有这个清理过去的特定行的所有内容，但我希望它能够使用列而不是行。 X在这种情况下应该是6

With Sheets("Sheet1") 
     .Rows(X & ":" & .Rows.Count).ClearContents 
    End With 

Answer 1

With Sheets("Sheet1") 
     .Range(.Cells(1,X).Address & ":" & .Cells(1,.Columns.Count).Address).Columns.ClearContents 
End With 

其中X是要启动与列的数字或字母。