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

我有这个清理一切特定的行，但我希望它与列而不是行。 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是您希望开始的列号或字母。