如何把表格中有删除线的数值不列入统计中

需要VBA编写宏命令实现，你要做什么样的统计运算？可以给你写一个自定义的统计函数：

Public Function 剔除双划线的统计(RNG As Range, CalType As String) As Double

Dim MyRng As Range, Rng1 As Range

For Each Rng1 In RNG

If Not Rng1.Font.Underline = xlUnderlineStyleDouble Then

If MyRng Is Nothing Then Set MyRng = Rng1 Else Set MyRng = Application.Union(MyRng, Rng1)

End If

Next

Select Case CalType

Case "平均值"

剔除双划线的统计谈启 = Application.WorksheetFunction.Average(MyRng)

Case "求和"

剔除双划答祥线的统计 = Application.WorksheetFunction.Sum(MyRng)

Case "计数"

剔除双划线的统计 = Application.WorksheetFunction.Count(MyRng)

Case "最大值"

剔除双划线的统计 = Application.WorksheetFunction.Max(MyRng)

Case "最小值"

剔除双划线的统计 = Application.WorksheetFunction.Min(MyRng)

Case Else

剔除双划线的统计 = Application.WorksheetFunction.Sum(MyRng)

End Select

End Function

以上自定义函数的使用方法是

=剔除双划线的统计(单元格区域,"统计方法名称")

统计方法名称有"平均","求清侍搏和","计数","最大值","最小值"五种，默认是"求和"方式

在excel表格念困磨里，我们如何给单元格的内容添加删除线呢？其实 *** 作方法很简单，接下来给大家分享具体 *** 作方法。

工具/原料：电脑型号：惠普光影精灵5、系统版本：win10 专业版64位 2004、软件版本：WPS 2019 版本号11.1.0

1、在表尺橘格单元格内输入文字。

2、随后鼠仔斗标右键单击，打开菜单选择设置单缝讨言元格蕉铲格式选项。

3、接着在单元格格式铲篇对话框里，找到字体项目栏，在特殊效果里我们就可以找到删除线功能。

4、将删除线功能打开之后，我们再点击确定按钮。

5、最后回到表格里，我们就可以看到文字就被划上了删除线。

---