执行宏， 代码相当简单， 如下
Sub non_formula_clear()
For Each x In [A1:H1000]
If Not x.HasFormula Then x.ClearContents
Next
End Sub
内容是， 数据在 A1: H1000
如单元格内不含公式， 则清除内容
但如有合并单元格是会发生错误
以下故长的代码， 可以应付合并单元格
Sub non_formula_clear()
For Each x In [A1:H1000]
If x.MergeCells Then
If Not x.MergeArea.HasFormula Then x.MergeArea.ClearContents
Else
If Not x.HasFormula Then x.ClearContents
End If
Next
End Sub
2. 在excel中怎么自定义才能把一列数字的后面一位或者是几位数字去掉
在excel中自定义才能把一列数字的后面一位或者是几位数字去掉的具体步骤如下： 我们需要准备的材料分别是：电脑、Excel表格。
1、首先我们打开需要编辑的Excel表格，点击打开数据中的“分列”。 2、然后我们在弹出来的窗口中点击选中“固定宽度”，之后点击“下一步”。
3、然后我们在弹出来的窗口中点击鼠标在数据预览下面的数字上点击，需要去掉后几位就在后几位的前面点一下，之后点击“下一步”。 4、然后我们在弹出来的窗口中点击选择“常规”，之后再点击“完成”即可。
3. 怎么清除excel一列中的数字
方法一：重复记录加数字编号的方法找到重复值
假设关键字存放在B列，从B2单元格开始到B100。
C2单元格公式：
=B2&IF(COUNTIF($B$2:$B$100,B2)>1,COUNTIF(B$2:$B2,A2),"")
公式向下复制
接下来只需把C列中数字编码大于1的行删掉就可以了。
方法二：筛选
选中这列：数据——筛选——高级筛选——选择不重复记录（勾上）——确定。
这样可以把相同的相邻显示，然后删除多余的即可。
方法三：
假设数据从A2开始至A100
在B2中写入公式后向下复制就可以把重复的数据在B列中列出来了
B2=IF(COUNTIF($A$2:$A$100,A2)>1,A2,"")
公式向下复制
注：如果是在列中找重复值，只需把数据区域改为相应的列方向的数据区后，公式向右复制就可以了！
电脑打字出现数字是因为开启了数字小键盘导致的，关闭数字小键盘即可解决问题，通常是按FN+NUMLK实现切换，但不同品牌的电脑，切换的方法不同。一般是以下三种:1、Shift NumLk2、FN+ NumLk3、用系统的屏幕键盘来关闭或者打开数字键盘开始-程序-附件-辅助工具-屏幕键盘-单击NLK即可切换4、Fn＋F11或Fn+PrtSc具体根据你的电脑来，一种方式不行，用另一种。如果出现了一次,可能是系统自检,是非法关机或系统故障引起的。 解决方案:按空格键或回车键跳过。如果经常出现这种情况,很有可能是系统磁盘文件因冷关机而损坏。 解决方案:重新安装系统。这个界面为windows系统的磁盘检查程序，主要用于监控磁盘驱动器的健康状况。这个工具会通过对磁盘驱动器进行扫描并分析，从而验证磁盘是否完好及驱动器上文件、文件系统和文件元数据的完整性。当发现错误时，程序会自动尝试修复这些错误。
