Excel一键实现所选区域内容添加删除线

1、本教程以下列数据为例。

2、插入一个ActiveX按钮控件。

3、绘制按钮成功后会自动弹出一个窗口，如图所示。

4、选择新建。

5、此时会自动跳转到VBA窗口。

6、在弹出的模块中，复制粘贴以下代码：Sub 按钮1_Click()Dim rng A衡痕贤伎s RangeFor Each rng In Sele艘早祓胂ction rng.Font.Strikethrough = TrueNextEnd Sub

7、返回Excel窗口，框选区域，单击按钮即可实现添加删除线效果。