selectEndDown，然后再select2行
我有下面的代码selectA5以下的所有数据，包括右边的17列，然后偏移1，所以我不清除标题行。
Set wksdestination = Sheets("Continental") Set registcell = wksdestination.Range("A5") Set rngdata = Range(registcell.End(xlDown).Offset(0, 17), registcell.Offset(1, 0)) rngdata.Clear 我还需要清除最后一行下方的两行以及偶尔在某些列下面的单元格中有一些SUM函数。 有人可以帮助最后添加下面的两行select以及？
我试过了
Set wksdestination = Sheets("Continental") Set registcell = wksdestination.Range("A5") Set rngdata = Range(registcell.End(xlDown).Offset(2, 17), registcell.Offset(1, 0)) rngdata.Clear
但是，这给运行时错误“1004”
我也尝试了下面的内容，但是如果没有数据的话会中断，而且不太理想，因为它涉及到select不同的表单，如果没有select每个表单就会更喜欢，但是如果这是唯一的方法，去做
Set wksdestination = Sheets("Continental") Set registcell = wksdestination.Range("A5") Set rngdata = Range(registcell.End(xlDown).Offset(0, 17), registcell.Offset(1, 0)) wksdestination.Select Range(rngdata.Offset(2, 0), rngdata).Select Selection.Clear
谢谢
尝试这种替代方法的单元格范围select和偏移量，以防止A5以下没有数据。
Dim wksdestination As Worksheet Set wksdestination = Sheets("Continental") With wksdestination With .Range("A5").Resize(Application.Max(2, .Cells(Rows.Count, 1).End(xlUp).Row - 3), 17) .Offset(1, 0).ClearContents End With End With
至less，A5下方的两行将从列A到列Q中清除内容和公式（但不格式化）。