写了个定位常量数字和公式数字然后清除的代码,如下
Sub 清除数据1()
'On Error Resume Next
Cells.Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = ""
Cells.Select
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
Selection.FormulaR1C1 = ""
End Sub
发现一旦没有定位到单元格会显示未找到单元格的错误,
如果加上第一行的跳过错误的话,会把工作表全部数据清除掉,
有没有办法屏蔽掉没有找到单元格的错误
尝试过用conta来判断选中区域是否为0来跳出宏,发现无效
Sub 清除数据1()
'On Error Resume Next
Cells.Select
Selection.SpecialCells(xlCellTypeConstants, 1).Select
Selection.FormulaR1C1 = ""
Cells.Select
Selection.SpecialCells(xlCellTypeFormulas, 1).Select
Selection.FormulaR1C1 = ""
End Sub
发现一旦没有定位到单元格会显示未找到单元格的错误,
如果加上第一行的跳过错误的话,会把工作表全部数据清除掉,
有没有办法屏蔽掉没有找到单元格的错误
尝试过用conta来判断选中区域是否为0来跳出宏,发现无效