Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/15.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 清除指定单元格中的所有单元格_Excel_Vba - Fatal编程技术网

Excel 清除指定单元格中的所有单元格

Excel 清除指定单元格中的所有单元格,excel,vba,Excel,Vba,晚上好,, 我有一份包含以下步骤的工作表: Public Sub cleaning(list As String) Worksheets(list).Range("D5:XFD1048576").Clear End Sub 它可以工作并清除D5:XFD1048576范围内的所有内容,但我不确定这是否是解决我问题的好方法。我需要一个程序来清除D5右边和D5单元格下面的所有内容 您能帮我解决这个问题吗?您的程序无法解决所描述的问题。为此,需要清除D列右侧的所有列(即从E开始),并清除5以下

晚上好,, 我有一份包含以下步骤的工作表:

Public Sub cleaning(list As String)
    Worksheets(list).Range("D5:XFD1048576").Clear
End Sub
它可以工作并清除D5:XFD1048576范围内的所有内容,但我不确定这是否是解决我问题的好方法。我需要一个程序来清除D5右边和D5单元格下面的所有内容


您能帮我解决这个问题吗?

您的程序无法解决所描述的问题。为此,需要清除D列右侧的所有列(即从E开始),并清除5以下的所有行(即从第6行开始)

下面是一段应该可以工作的代码:

Public Sub extracleaning(list as String)
    Worksheets(list).Columns("E:XFD").Clear
    Worksheets(list).Rows("6:1048576").Clear
End Sub

我觉得很好。您可以使用
工作表(1).Range(单元格(5,“D”)、Cells(Rows.Count、Columns.Count)).Clear
来满足Excel早期版本中没有那么多行/列的需求谢谢@Alex P,这正是我所担心的,早期版本的Excel:)
Rows.Count
Columns.Count
就像一个charm感谢您的帮助,我使用了@Alex P的解决方案,我对问题的解释不准确,我的意思是从
D
和行
5
开始,我不确定位置
XFD1048576
是否是每个excel工作表中的最后一个单元格