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

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

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

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

4、选择新建。

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

6、在弹出的模块中，复制粘贴以下代码：

Sub 按钮1_Click()

Dim rng As Range

For Each rng In Selection

    rng.Font.Strikethrough = True

Next

End Sub

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