一键实现工资条恢复

VBA神器是不是很厉害，一键就实现了工资条的生成。

可是，可是，有些不小心手抖了，没保存源文件，代码操作又是不可逆的那怎么办？ 

作者：薛奔

今天来分享恢复工资条的代码，还是那句话不需要掌握，能套用能改就行了。真的想要系统学习VBA，点击阅读原文，今天特价哦~

方法/步骤

1、上次的工资条生成，已经调整过宏安全性，那这里不需要重复操作。如果没有，可以看下

文件-选项-信任中心-信任中心设置

 

高手可以选择启用所有宏。

2、仍然进入VBE编辑器

在工作表中按下键盘上ALT F11组合键，调出VBE对话框，点上方的插入，选择模块

贴入代码：

Public Sub recover()

Application.ScreenUpdating = False

            For i = Cells(Rows.Count, 1).End(xlUp).row To 2 Step -1

                If Cells(i, 1) = Range('a1') Or Len(Cells(i, 1)) = 0 Then '判断

                    Rows(i).Delete

                End If

             Next

        Application.ScreenUpdating = True

        MsgBox '恢复初始状态' & vbCrLf & '  制作者Sharpen'

End Sub

 

代码简单介绍：判断是不是和表头一样，还有是不是空行内容，如果是就删除该行。

3、运行代码：代码粘贴好后，我们可以按下F5来执行，也可以点击三角执行。

关闭VBE编辑器，回到Excel。是不是看到数据又恢复了。

 

4、同样可以设计和上次一样的按钮，就不需要进入VBE点运行，以后直接点按钮就行了。

你get了吗？

VBA是不是很强大，你想不想也有这样的Power，那就点击学习我们由线下知名培训师录制的VBA零基础实战视频课程哦，目前新品特价38元，快快购买！

另外：转发本文到朋友圈，就赠送工资条生成恢复VBA源文件，加小编微信：wuliaoZJN，备注：工资条，就可获得。