如何使用VBA删除excel中单元格下方和右侧的所有内容

Question

wOut.Worksheets("Sheet1").Range("D8", Range("D8").End(xlDown).End(xlToRight)).ClearContents

例如，这不起作用(应用程序定义或操作定义错误(

Answer 1

With wOut.Worksheets("Sheet1")
Range(.Cells(8, 4), .Cells(.Rows.Count, .Columns.Count)).ClearContents
End With